BCB：使用CppWebBrowser判断网页加载完成

void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
　　Memo1->Lines->Add("Complete"); //每次触发的Complete
　　if(pDisp==CppWebBrowser1->DefaultDispatch) // TWebBrowser用DefaultInterface或DefaultDispatch都正常
  　{
       Memo1->Lines->Add("all Complete!"); //最后触发的Complete
       //TodoSomething();
  　}

}