求助，MessageBox点击“确定”按钮后，不退出，为什么？

Question

在主窗体（FormStyle是fsMDIForm）中，我弄了一个MessageBox，想退出系统，但弹出MessageBox后，点击确定按钮，MessageBox窗体没反应，主窗体也不退出，这是为什么？
我的代码如下：
窗体如下：

Answer 1

for i := MDIChildCount - 1 downto 0或者直接主窗口close就行了

Answer 2

问题解决了！感谢 zhangzhen_927116 ，我一步一步运行了，发现CloseQuery这个过程永远结束不了，原因是，我在CloseQuery过程中又调用了窗体的Close过程，而Close过程又会调用CloseQuery过程，这样就死循环了！