TBitmap free? Invalid Pointer Operation

[turboPASCAL]

Delphi-Quellcode:

var
  bmp : TBitmap;

begin
  bmp := TBitmap.Create;
  bmp.Assign( Image1.Picture.Bitmap ); // <--<<
 
  // (snip) //

  bmp.free;
end;