有谁知道关于程序退出的问题？可我已经无分可给了，下次补好吗？(0分)

在可户电击了窗体右上角的‘X’号后，有个确认框询问是否退出，可客户选择了不退出，
我要怎么做才可以让程序不退出呢？

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

CanClose := MessageBox(Handle, '你真的要退出本系统吗？', '提示',
MB_YESNO + MB_ICONQUESTION) = IDYES

end;

任选其一，不要两个都用呀[]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('确实要退出吗？', '询问', 32 + mb_YesNo) = mrNo then
Action := caNone;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('确实要退出吗？', '询问', 32 + mb_YesNo) = mrNo then
CanClose := False;
end;

接受答案了.

同意biyesheng的