Bitmap nach Assign leer. Warum?

[freejay]

Hallo zusammen,

ich weise die Bitmap eines TImage einer anderen Bitmap zu und dann wieder zurück:

Delphi-Quellcode:

procedure TForm26.Button1Click(Sender: TObject);
var
  BmpTmp: TBitmap;
begin
  BmpTmp := TBitmap.Create;
 
  BmpTmp.Assign(Image1.Picture.Bitmap);
  Image1.Picture.Bitmap.Assign(BmpTmp);

  BmpTmp.Free;
end;

Danach ist das Image leer.

Warum? Was mache ich falsch?

Danke & Gruß

Freejay