delphi mshtml 抛异常问题 高手来呀

Question

procedure TForm1.Button2Click(Sender: TObject);
var
   J:integer;
   spDisp,p: IDispatch;
   IDoc1: IHTMLDocument2;
   ielc: IHTMLElementCollection ;
   ihtml:IHTMLElement;
   iane:IHTMLAnchorElement;
   turnflag:boolean; //翻页标识
begin
  { while WebBrowser1.ReadyState <>READYSTATE_COMPLETE  do
   begin
    application.ProcessMessages;
    sleep(20);
   end;  }
   turnflag:=true;
   WebBrowser1.Document.QueryInterface(IHTMLDocument2,iDoc1);
   ielc:=idoc1.Get_all;
   if iDoc1 <> nil then
   begin
     for J:=0 to ielc.length-1 do
     begin
       Application.ProcessMessages;
       spDisp := ielc.item(J, 0);
       if spdisp <> nil then
       begin
           if SUCCEEDED(spDisp.QueryInterface(IHTMLAnchorElement ,iane))then
           begin
               //如果如果找到了与字符串匹配的网址，则进行点击
               if iane.href='http://www.xxxxx.com/' then
               begin
                 ihtml:=ielc.item(J,0) as IHTMLElement;
                 ihtml.click;
                 buzhouflag:='4';
               end;
           end;
       end;
     end;
   end;
end;上面的代码意思是搜索WebBrowser1里连接地址与给定字串相同时 然后点击这个连接地址
问题：为什么有的时候能正常打开 有的时候就抛异常 

Answer 1

第一次打开的时候正常 5分钟以后再次打开的时候就抛异常