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