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

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

Procedure TfrmMain.OnMove( Var Msg : TWMMove ); 
Begin 
    Inherited; 
    (...) 
End; 
</code>