防止TWebBrowser.Navigate冻结应用程序

Question

我使用TWebBrowser组件加载广告，最终成为flash动画。

嵌入式IE似乎无法处理一些广告网址，应用程序只是变得没有响应，并在启动导航后占用大量CPU，直到我终止任务。不会触发OnNavigateError事件。

procedure TForm1.FormShow(Sender: TObject);
begin
  WebBrowser1.Navigate('http://fra1.ib.adnxs.com/ab?enc=i2Lixr4uzT9K8v6yq0PKP99PjZduEts_SvL-sqtDyj-LYuLGvi7NP1K85HoPuMws2Qp8eWrwMlELbSp'
   + 'UAAAAAAFILgDLCAAAHwUAAAIAAAAfbC4Bu9YGAAAAAQBVU0QAVVNEAKAAWALAYAAAGNsBAQUAAQIAAIoA3igbuwAAAAA.&cnd=%218ylhdAitjcQCEJ_YuQkYACC7rRsw'
   + 'ADgAQABInwpQgZC5AVgAYOEEaABwCHjiWoABNIgBFpABAZgBAaABAagBArABALkBYXNY_Hb6xj_BAYti4sa-Ls0_yQE5kG67FLncP9kBUdobfGEy6T_gAQD1AZqZmT8.&'
   + 'ccd=%21DQZ2OAitjcQCEJ_YuQkYu60bIAA.&udj=uf%28%27a%27%2C+387951%2C+1412066571%29%3Buf%28%27c%27%2C+5310125%2C+1412066571%29%3Buf%2'
   + '8%27r%27%2C+19819551%2C+1412066571%29%3B&vpid=1&apid=1&referrer=redacted&custom_macro=CP_ID%5E5310125&media_subtypes=1&ct=16&rsrc'
   + '=3&dlo=1&pp=%%pricepaid%');
end;

显然广告本身有问题，因为它既不会加载到IE中，也会显示一个既没有内容也没有错误的空白页面。但是在Delphi方面我希望导航在任何情况下都不会冻结应用程序，有没有办法让我能够捕获那里发生的任何错误并正确处理它？<​​/ p>