关闭窗体小问题，高手进，在线等之........

Question

主窗体关闭按钮程序如下：
procedure Tfrm_main.ToolButton5Click(Sender: TObject);
begin
  if Application.MessageBox('要退出系统吗?','提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
  begin
    Application.Terminate;
  end;
end;
问题：就是当单击窗体自带的关闭按钮（就是那个'x'按钮）时，不会出现上面的提示信息，我想让它出现，请问怎样写呀？？？？？？？？？？
高手指点

Answer 1

把提示信息写在FormClose事件里面。
Action可以控制是否关闭窗体。

Answer 2

这样来
procedure  Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := CaNone;
  ToolButton5.Click;
end;