Gibt es eine Image.picture.bitmap?

[Mattze]

Hallo,

ich habe natürlich weitergespielt.
Und so geht es:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var pic: TPicture;
begin
  pic:=TPicture.Create;
  try
    pic.Assign(image1.picture);
    if not pic.bitmap.empty then  begin
      image2.Picture.Bitmap.Assign(image1.Picture.bitmap)
    end else begin
      showmessage('Bitmap leer');
    end;
  finally
    pic.Free
  end;    
end;

Finde ich aber trotzdem unbefriedigend. Vor allen Dingen ärgert mich, dass ich nicht weiß, warum es andersch (sprich: direkt) nicht geht.

Gruß
Mattze