closequer与close的区别

直接关闭  
  closequery会把程序引导到OnCloseQuery在这里就可以添加一些询问之类的东西了，举个例子来说  
  ----------------------------------------  
  procedure   TfrmMain.FormCloseQuery(Sender:   TObject;   var   CanClose:   Boolean);  
  begin  
          SaveList;//保存某些数据  
          if   MessageDlg('确定要退出网管中心软件吗？',   mtConfirmation,[mbYes,   mbNO],   0)   =   mrYes   then  
          begin  
                  application.Terminate;//关闭程序  
          end  
          else   CanClose:=False;//保持程序的执行  
  end;

///

procedure Tform1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := False;
  if Application.MessageBox('是否真的退出系统？','询问',MB_ICONQUESTION+MB_YESNO) = IDYES then
  begin
    CanClose := True;
  end;
end;