[Alegun]

Если напряжение пропадет, не только кординато слетит :-)

Методом научного тыка получилась компиляция из обработчиков определенных сообщений, вроде работает

Код:

...
  private
    { Private declarations }
  procedure WMSYSCOMMAND(var Msg: TMessage);
   message WM_SYSCOMMAND;

  procedure WMNCLBUTTONDOWN(var Msg: TMessage);
   message WM_NCLBUTTONDOWN;
...

procedure TForm1.WMNCLBUTTONDOWN(var Msg: TMessage);
begin
 if (Msg.WParam = 0) and (Msg.LParam = 0) then
   with TStringList.Create do
    begin
     Add('Form.Top - '    + Inttostr(Form1.Top));
     Add('Form.Left - '   + Inttostr(Form1.Left));
     Add('Form.Height - ' + Inttostr(Form1.Height));
     Add('Form.Width - '  + Inttostr(Form1.Width));
     SaveToFile('some.txt');
     Free;
    end {with}
   else
      inherited;
end;

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
 inherited;
 SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, 0, 0);
end;