procedure TMainForm.FormClose(Sender: TObject;   
          var Action: TCloseAction);  
begin  
  Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);  
  Action := caFree;  
end;