TBitmap als Rückgabewert - Speicherproblem

[DeddyH]

Ich würde die Bitmap vorher erzeugen und die Instanz an die Funktion übergeben.

Delphi-Quellcode:

procedure MachWas(const BMP: TBitmap);
begin
  //hier malen
end;

...

procedure Wuppdi;
var bm: TBitmap;
begin
  bm := TBitmap.Create;
  try
    MachWas(bm);
  finally
    bm.Free;
  end;
end;