delphi - TEventObject和WebBrowser

我创建了一个TEventObject为OnMouseDown提供OnMouseMove和TWebBrowser事件。在移动鼠标和单击Web浏览器时，这些事件可以正常运行，但是当我滚动或单击Web浏览器的垂直滚动条时，会出现EZeroDivide异常。 EurekaLog在d2d1.dll中报告EZeroDivide异常。我试图捕获异常，但是我尝试过的一切似乎都没有效果：

function TEventObject.Invoke( DispID: integer; const IID: TGUID; LocaleID: integer; Flags: Word; var Params;
  VarResult, ExcepInfo, ArgErr: Pointer ): HResult;
begin
  try
    if ( DispID = DISPID_VALUE ) then
    begin
      if Assigned( FOnEvent ) then
        FOnEvent;
      Result := S_OK;
    end
    else
    begin
      FOnEvent := nil;
      Result := E_NOTIMPL;
    end;
  except
    on EZeroDivide do
    begin
      FOnEvent := nil;
      Result := E_NOTIMPL;
    end;
  end;
end;

我的问题是我可以以某种方式阻止该异常，还是可以检测到TWebbrowser垂直滚动条上的鼠标按下以防止该异常？这个异常对我来说很难解决，因为我对TEventObject知之甚少，而且我不理解为什么仅在单击或拖动垂直滚动条时才会发生该异常。如果需要，我可以提供更多信息。编译器：Delphi 2010。

[编辑]
看到这篇文章：
http://www.codenewsfast.com/cnf/article/0/waArticleBookmark.7401953
一个非常简单的演示应用程序可以在以下位置找到：
 http://dl.dropbox.com/u/2167512/bugs/ie9/ie9_bug.zip

这样可以防止错误：

Math.SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,exOverflow, exUnderflow, exPrecision]);

最佳答案

尝试禁用FPU异常：

System.Set8087CW($133F);

在较新版本的Delphi中：

Math.SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);