delphi中的退出程序的确认问题

在formclose中用

if   Application.MessageBox('你确认要退出吗？','请确认',MB_YesNo+MB_IconQuestion)=IDno   then
   begin
     ........//这里写什么,程序才不会退出
   end
-----------------------

纠正下不是在 Form 的 Close 事件里,因该在 CloseQuery 事件里

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (IDYES = Application.MessageBox('确定要退出吗?','提示',MB_YesNo+MB_IconQuestion)) then
 CanClose:=TRUE
else
 CanClose:=FALSE;
end;