type 
  TForm1 = class(TForm) 
  private 
    { Private-Deklarationen } 
  public 
    procedure Bevor(var Msg: TMessage); message WM_ENTERSIZEMOVE; 
    procedure Danach(var Msg: TMessage); message WM_EXITSIZEMOVE; 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Bevor(var Msg: TMessage); 
begin 
  Beep; 
  inherited; 
end; 
 
procedure TForm1.Danach(var Msg: TMessage); 
begin 
  inherited; 
  ShowMessage('Verschieben oder Größenänderung beendet'); 
end; 

// ---------- Erweiterung ----------- 
 
var w, h: integer; 
 
procedure TForm1.Bevor(var Msg: TMessage); 
begin 
  w := width; 
  h := height; 
  inherited; 
end; 
 
procedure TForm1.Danach(var Msg: TMessage); 
begin 
  inherited; 
  if (width <> w) or (height <> h) then 
    ShowMessage('Größe wurde verändert') 
  else ShowMessage('Fenster wurde verschoben') 
end;