Teile eines images kopieren und in anderes image einfügen

[jAcK oRsEn]

und wie mach ich das?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b : Trect;
begin
a := rect(0,0,105,105);
b := rect(0,0,105,105);
image2.canvas.CopyRect(a,image1.picture.bitmap.canvas,b);
end;

geht auch nicht