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

(...)

Type
    TfrmMain = Class( TForm )
        Private
            Procedure OnMove( Var Msg : TWMMove ); Message WM_MOVE;
        End;

(...)

Procedure TfrmMain.OnMove( Var Msg : TWMMove );
Begin
    Inherited;
    (...)
End;

(...)