Question

delphi中在form1的onclose中写退出代码时，点击取消怎么才能返回程序

delphi中在form1的onclose中写退出代码时，点击取消怎么才能返回主程序，就像退出记事本的时候点取消就返回记事本了。
例如：

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
n:integer;
begin

n:=messagebox(0,'是否退出并保存','退出',mb_yesnocancel);
//退出是判断是否退出
if n=6 then
n22.Click //退出并保存
else if n=7 then
application.Terminate //结束程序
else if n=2 then
exit; //返回主程序

Answer 1

//Form1的CloseQuery事件
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
n :integer;
begin
n := Messagebox(handle,'是否退出并保存','退出',mb_yesnocancel);
if n = 6 then
begin
n22.Click;
CanClose := true;
end
else if n = 7 then
CanClose := true
else
CanClose := false;
end;

或者这样
//Form的Close事件
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
n :integer;
begin
n := Messagebox(handle,'是否退出并保存','退出',mb_yesnocancel);
if n = 6 then
begin
n22.Click;
application.Terminate;
end
else if n = 7 then
application.Terminate
else
Action := caNone;
end;

Answer 2

else if n=2 then
CanClose := False;//返回主程序