type 
  TForm2 = class(TForm) 
  private 
    { Private-Deklarationen } 
  public 
    procedure Minimieren(var M: TMessage); message WM_NCLBUTTONDOWN; 
  end; 
 
var 
  Form2: TForm2; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm2.Minimieren(var M: TMessage); 
begin 
  DefaultHandler(M); 
  if (M.WParam = HTREDUCE) and 
    (WindowState = wsMinimized) then 
    Application.Minimize; 
end;