type
TForm1 = class(TForm)
private
procedure WM_MOVE( var Msg: TWMMove); message WM_MOVE;
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WM_MOVE( var Msg: TWMMove);
begin
inherited;
ShowMessage('Form a bougé !');
end;