Grafik von Zwischenablage kopieren Problem ?

[thomas2009]

Hallo

kann jemand mir helfen um das Problem zu lösen
Ich hole zuerst den Grafik von der Zwischenablage (z.B. von Microsoft Paint) in Image2

Dann versuche ich danach das Bild von Image2 in Image1 zu kopieren
Ich bekomme aber ein weißes Bild !

Delphi-Quellcode:

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.StretchDraw(Rect(0,0,100,100), Image2.Picture.Bitmap);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_BITMAP) then
Image2.Picture.Assign(Clipboard);

end;

Das Bild und das Project sind im Anhang