TBitmap kopieren

[Schneider-Huetter]

Hallo,
wird im folgenden Beispiel das Bitmap kopiert oder nur die Referenz darauf?

Delphi-Quellcode:

var
  bitmapSave, bitmapWork : TBitmap;
begin
  bitmapSave := TBitmap.Create;
  bitmapWork := TBitmap.Create;

  bitmapWork.LoadFromFile( 'foo.bmp' );
  
  // hier soll das Bitmap kopiert werden
  bitmapSave := bitmapWork;
  
  //mach irgendwas

  bitmapSave.Free;
  bitmapWork.Free;
end;

[DGL-luke]

in diesem fall nur die referenz. mach es so:

bitmapsave.assign(bitmapwork); assign kopiert.

[Schneider-Huetter]

Alles klar, danke für die schnelle Antwort!