Warum verschiebt sich mein Form nicht? [gelöst]

[FriFra]

Ich verwende folgenden Code um mein Formular zu verschieben. Das ganze klappt bei einem Anderen Programm hervorragend, aber im aktuellen Projekt passiert nichts!

Delphi-Quellcode:

procedure TInfos.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  sc_DragMove = $F012;
begin
  if Button = mbleft then
  begin
    ReleaseCapture;
    Infos.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Die Zeile "Infos.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);" wird aber ausgeführt... aber ohne Wirkung ...