delphi编写的bho，运行结果正确，不过老出现异常，请各位指点！(100分)

异常主要出现在DISPID_DOCUMENTCOMPLETE（文档下载完毕）时，为组件添加事件。
em2 := obj as IHTMLElement2;
em2.attachEvent('onmouseover', IEHELP.MouseOverSink);//这里老出错

不过不是每次都异常，有时候运行是正确的，出现异常的情况也不固定。奇怪了，各位指点！！