Bitmap in Variable von TBitmap löschen

[Helmi]

Ich muss etwas weiter ausholen.

Delphi-Quellcode:

var 
  Bitmap: TBitmap; 

begin 
  Bitmap := TBitmap.Create; 

  try 
    Bitmap.LoadfromFile(...); 

    Proc_die_Bitmap_liefert(Bitmap);

    BitBtn.Glyph.Assign(Bitmap);
  finally 
    FreeAndNil(Bitmap); 
  end; 
end;

Die Procedure "Proc_die_Bitmap_liefert()" ändert das Bitmap. Manchmal soll das Bitmap an den BitBtn zwar übergeben werden, aber eben leer sein.
Nun würd ich gerne dass die Procedure "Proc_die_Bitmap_liefert" in diesem Fall ein leeres Bitmap zurückgibt, dass dann in den BitBtn geladen wird.
(Das ganze läuft in einer Schleife. D. h. Bitmap wird nur einmal erzeugt und einmal freigegeben. Innerhalb der Schleife wird dann eben das obere Konstrukt durchgeführt.)

[Edit]
In der Procedure "Proc_die_Bitmap_liefert" setz ich die Größe vom Bitmap jetzt einfach auf 0

Delphi-Quellcode:

Bitmap.Height := 0;
Bitmap.Width  := 0;

Und das hilft auch.