Event Fenster verschieben?

[Minz]

das funzt net

Delphi-Quellcode:

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  { WM_SYSCOMMAND abfangen }
  if Msg.Msg = WM_SYSCOMMAND then
  begin
    { wParam prüfen }
    case Msg.wParam of
      SC_MOVE:
      begin
        ShowMessage('Fenster wurde beweg');
        FensterPosX:=Form1.Left;
        FensterPosY:=Form1.Top;
        Inherited;
      end;
    else
      { alle anderen Fälle weiterreichen an die standard Fensterprozedur }
      Inherited;
    end;
  end;
end;

Hab fast alles übernommen, er zeigt weder die Message, noch belegt er die Variablen.

Minz