Icon wird aus TImage gelöscht - warum?

[delphinia]

Siehe Mein Code unten.

wenn in der TImage nen icon geladen - udn dann auf den Button klicke. so ist mein icon aus der Timage verschwunden. ;-( WARUM?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  Bitmap := TBitmap.Create;
  try
    Icon := Image1.Picture.Icon;
    Bitmap.Width := Icon.Width;
    Bitmap.Height := Icon.Height;
    Bitmap.Canvas.Draw(0, 0, Icon);
  finally
    Bitmap.Free;
    Icon.Free;
  end;
end;