Handles bei Änderungen an Bitmaps

[Bitmap]

Hallo zusammen,

Danke schon mal für die Tips. Den Beitrag für die Bitmaps habe ich vorher schon gelesen. Irgendwie sehe ich aber nicht den Hinweis, der mir bei meinem Problem weiterhilft.

Ich habe auch alle Punkte bzgl. Dormant, FreeImage, etc. eingebaut.
Nachfolgend der ganze Code:

Delphi-Quellcode:

var L_Bitmap       :  TBitmap;
    L_Width,L_Height: integer;

begin
L_Bitmap:=nil;
try
  L_Bitmap:=TBitmap.create;
  L_Width:=round(max(2*abs(L_VL.X-L_M.X),2*abs(L_VR.X-L_M.X)));
  L_Height:=round(max(2*abs(L_VL.Y-L_M.Y),2*abs(L_VR.Y-L_M.Y)));

  L_Bitmap.PixelFormat := pf24bit;
  L_Bitmap.Width:=L_width;
  L_Bitmap.Height:=L_Height;

  ...
  L_Bitmap.canvas.StretchDraw(Rect(0,0,BMWidth,BMHeight),BitmapOriginal);
  L_Bitmap.FreeImage;

  ...

finally
  begin
  if assigned(L_Bitmap) then
    begin
    L_Bitmap.ReleaseHandle;
    L_Bitmap.free;
    end;
  end;
end;

Wieso werden hier für L_Bitmap nicht alle Ressourcen freigegeben?