简单的例子:2个Image,Image2盖住Image1。把Image1拷贝到Image3
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Image3.Width:=Image1.Width;
Image3.Height:=Image1.Height;
image3.Canvas.CopyRect(Rect(0, 0, Image3.Width, Image3.Height), Image1.Canvas, Rect(0, 0, Image1.Width, Image1.Height));
end;