点关闭按钮，提示是否确认退出

TForm1.FormCloseQuery是自身有的属性。

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  try
    if Application.MessageBox('确定退出本软件吗？','询问',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
    begin
      CanClose:=True;
    end
    else
      CanClose:=False;
  except
    Exit;
  end;
end;