type 
  TForm1 = class(TForm) 
  private 
    procedure OnMove(var aMsg: TWMMove); message WM_MOVE; 
    procedure OnMoving(var aMsg: TMsg); message WM_MOVING; 
  public 
{ Public-Deklarationen } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
// Dieses Ereignis tritt ein, wenn das Fenster bereits in Bewegung ist. 
 
procedure TForm1.OnMove(var aMsg: TWMMove); 
begin 
  inherited; 
  if visible then 
  begin 
// hierher kommen die entsprechenden Anweisungen 
  end; 
end; 
 
// Dieses Ereignis tritt ein, bevor das Fenster seinen Platz ändert. 
 
procedure TForm1.OnMoving(var aMsg: TMsg); 
begin 
  inherited; 
  if visible then 
  begin 
// hierher kommen die entsprechenden Anweisungen 
  end; 
end;