delphi XE2模态对话框问题

Question

各位大侠，碰到一个奇怪问题，描述如下：
1.主窗口中设计了一个模态对话框frmModal，需要时使用CreateForm创建frmModal，并调用frmModal.ShowModal()来显示
2.模态对话框中有两个按钮一个是mrNone，一个是mrCancel。
3.点击mrNone，执行一系列操作，如果失败，给一个ShowMessage()提示。点击mrCancel，则frmModal对话框自动关闭但是问题出来了
如果在frmModal.showModal()状态，连续两次点击mrNone键，执行特定处理失败的话，此时再点击mrCancel不会立刻关闭模态对话框，需要连续两次点击mrCancel才会关闭frmModal。即使我在mrCancel的OnClick()处理里加上Close也没用。非常奇怪，为何此时需要连续两次点击mrCancel呢？哪位大侠碰到过类似问题，给点提示吧？

Answer 1

1.主窗口中设计了一个模态对话框frmModal，需要时使用CreateForm创建frmModal，并调用frmModal.ShowModal()来显示
改成
--->
frmModal := TfrmModal.Create(Applicatiion);
frmModal.ShowModal()

Answer 2

卡，原来是我调用了两次ShowModal，此贴关闭。