Delphi中WebBrowser（或者EmbeddedWebBrowser）控件打开部分网站报“Invalid floating point operation”异常的解决方法

最近用EmbeddedWB控件做浏览器相关应用的时候，发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常（关掉异常对话框以后，浏览器无响应），而程序仅仅是一句

WebBrowser1.Navigate(Edit1.Text);

貌似很多含有Silverlight元素的网页打开时都会带出这个bug。而且关键是，错误提示完全让人摸不着头脑有木有！！！！！

百思不得其解，遂Google之，得结论如下：

1、很多网友都遇见过同样的问题

2、Borland官方解释请点这里（我这打不开）

3、大概的情况是,在使用一些浮点操作时,微软默认设计会抛出一系列的异常。这些异常按理说不应该阻止程序运行。但不知道为什么,Delphi默认是截获后又把异常抛了出来,被系统截获就会影响程序运行了。Borland给的解决方法是,加一句

Set8087CW(Longword($133f));

来关闭这个机制. 你可以加在form的OnCreate事件里。

虽然问题解决了，不过不明白为什么，求高人指点。

参考：

《TWebbrowser打开paypal出错》http://blog.sina.com.cn/s/blog_48d1e7820100e1yw.html