TBitmap free? Invalid Pointer Operation

[cltom]

hallo!

habe folgenden Code, der zwar funktioniert, beim beenden des Programms aber "invalid pointer operation" ergibt:

Delphi-Quellcode:

var
  bmp : TBitmap;

begin
  bmp := TBitmap.Create;
  bmp := Image1.Picture.Bitmap;
  
  (snip)

  bmp.free;
end;

Wenn ich das free weglasse geht es. Sorry für die Basic-Frage, aber muss ich das Objekt nicht freigeben? Wenn ja, warum dann die Fehlermeldung? und wie richtig?

nochmals sorry, wenn das basic ist.
dank und gruß
tom