{
CopyMode example
The following example uses the CopyMode of an image’s canvas to blank out the image when the user chooses the “Cut” menu item.
} 
procedure TForm1.Cut1Click(Sender: TObject);
var
  ARect: TRect;
begin
  Copy1Click(Sender); { do the same thing as the copy menu item }
  with Image.Canvas do
  begin
    CopyMode := cmWhiteness;
    ARect := Rect(0, 0, Image.Width, Image.Height);
    CopyRect(ARect, Image.Canvas, ARect);
    CopyMode := cmSrcCopy; { restore the copy mode }
  end;
end; 
