Wäre auch zu schön gewesen.
Aber ich habe eine Lösung gefunden und(!) getestet.
Delphi-Quellcode:
private
{ Private declarations }
procedure WMMOVE(var Msg: TWMMove); message WM_MOVE;
.....
procedure TForm1.WMMOVE(var Msg: TWMMove);
begin
inherited;
ShowMessage('g');
end;
...
...