delphi中改變圖片效果

想不想另圖片有另一番效果，使用下列語句實現吧，增加兩個TImage圖片框，分別為Image1、Image2，用Image1引入一張圖片，按下按鈕就可以在Image2上出現驚人的效果：

procedure TForm1.Button1Click(Sender: TObject);
begin
Image2.Canvas.Brush.Style := bsCross;
Image2.Canvas.CopyMode := cmMergeCopy;
Image2.Canvas.Draw(0,0, Image1.Picture.Graphic);
end;