Bitmap zurück geben und freigeben

[Desmulator]

Code von Appear

Delphi-Quellcode:

function TStaticObject.Appear( var Dest: TBitmap ) : TBitMap;
var
  Image : TBitmap;
begin
  try
    //Image erstellen
    Image := TBitmap.Create;

    { ... unwichtig ... }

    //"Zurück geben"
    Dest := Image;

  finally
    //Image frei geben
    Image.FreeImage;
    Image.Free;
  end;
end;

Ich glaube der Fehle liegt bei Dest := Image; ka obs stimmt