Как узнать, была ли перемещена форма?

(...) 

type
  TfrmMain = class(TForm)
  private
    procedure OnMove(var Msg: TWMMove); message WM_MOVE;
  end;

  (...)

procedure TfrmMain.OnMove(var Msg: TWMMove);
begin
  inherited;
  (...)
end;

(...)

ищу парня для серьезных отношений .

английский язык м Первомайская Москва

---