无法弹出对话框的问题，句柄相关？

  我有一个程序是用ole容器加载的ActiveX插件。在一般情况下运行正常，但是偶热会出现点击弹出对话框无法现实的问题。
  现象为，以ShowMessage为例。 当初始显示时直接show会导致程序失去焦点，感觉是对话框弹出来了，但是没有显示在界面上，导致后续程序都没有办法操作。（因为不关闭对话框无法获得其他焦点）。
但是如果Delphi报错弹出一个系统异常后，在点击ShowMessage可以正常现实在界面中。
  我在怀疑是不是句柄导致的问题，但是又找不到解决方法。
  求教！