Как перехватить событие формы (Движение)

[ImmortalAlexSan]

Slippy, я знаю, что наследование от TForm1 работает, но мне не нужно такое наследование, как не нужно наследование от обычной формы (дополнительной) заранее включенной в проект.

[ImmortalAlexSan]

Сделал через Win Api

[evg_m]

f:=TForm.Create(self);
f.onmove:=myformIsMove;

procedure TformMain.Myformismove(sender: Tobject; .....);
begin
  self.panel1.capction:=format('X:%d Y:%d,[TForm(sender).left,Tform(sender).Top]); 
end;