请问一个问题，关于formclose的问题？----谁能帮我看看代码---在线等待

我窗体（不是主窗体）上面有一个按钮：退出。窗体右上方有个x，“退出“的代码我是这样写的
   procedure Texplorefrm.BitBtn_cancel(Sender: TObject);
begin
       if application.MessageBox('你真的要关闭本窗体吗？','关闭确认',MB_IconQuestion+MB_SystemModal+MB_YesNo)=IDYes then
          begin
             close;
end;
end;然后我为了让用户关闭窗体右上方有个x的按钮，也能有个提示，我时这样写的
procedure Texplorefrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('你真的要关闭本窗体吗？','关闭确认',MB_IconQuestion+MB_SystemModal+MB_YesNo)=IDYes then
begin
      adotable1.close;
     adotable2.close;
       adoquery1.close;
    action:=cafree
else
     action:=canone;
end;
好像在点“退出的”时候，有点问题，要点至少两下。
end;
end.