TImage verschieben?

[mlspider]

Wie könnte man zur Laufzeit die Image-Kompo verschieben?

Dieser Code funkioniert bei Button und Co, nicht bei der Image-Kompo:

Delphi-Quellcode:

procedure TCover.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 TWincontrol(sender).perform(WM_LBUTTONUP, 0, 0);
   TWincontrol(sender).Perform(WM_SysCommand,SC_MOVE+2,2);
end;

Im MouseDown-Event von Image1, habe ich die Procedur vom MouseDown-Event des Buttons zu stehen.