Ausschnitte von Form zu Form kopieren

[GerHil]

Hallo,

hoffentlich habe ich jetzt einen eindeutigen Titel gewählt!

Leider habe ich noch Probleme mit Euren Ratschlägen.

Das Kopieren mit CopyRect hat nicht funktioniert.

Was habe ich falsch gemacht ?

[delphi]

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Image1.Picture.LoadFromFile('test.bmp');

end;

procedure TForm1.Button2Click(Sender: TObject);
var
ZielRect,QuellRect : TRect ;
begin
ZielRect := Rect(16,16,300,300);
QuellRect := Rect(16,16,300,300);


Form2.Canvas.CopyRect(ZielRect,Form1.Canvas,QuellR ect);
Form2.Show ;
end;

Ich hoffe auf Eure Hilfe


Gruß

GerHil