用IF嘛，好简单了。我都会了。

看了楼主的代码，有点繁琐。

既然楼主要求的是：主要就是关闭窗口时,出现个提示对话框,实现这个就可以了.....

那么我就不用你的代码了，下面这样写，供你参考：

在Form的OnCloseQuery事件处理过程中这样写：

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Application.MessageBox(PAnsiChar('确定要退出吗'), PAnsiChar('警告'), 49) = mrOK;
end;