delphi WebBrowser1 打开网页 状态解决方法

delphi WebBrowser1 打开网页 状态



procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  label3.Caption:='1';  //完成打开网页
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
  label3.Caption:='0';   //开始打开网页
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
label3.Caption:='0';     //正在打开网页
end;


我用label3.caption的值 0/1 来判断网页是否打开完成  

现在问题是:程序运行,自动打开listbox里的值 ,然后付值到edit2.text,然后打开网页,WebBrowser1判断是否打开完成,如果没有打开,再次打开网页,判断3次,如果再打不开,跳出,打开listbox 下一个网址,直到完成


请问,这个判断3次要怎么写
------解决思路----------------------
WebBrowser1判断是否打开完成,这个不好说，如果有框架，要触发多次，可以判断打开网页的地址，(WebBrowser1.Document as IHTMLDocument2).url是否与EDIT2.TEXT相同，如果没有打开可以判断没有打开网页转向地址,是否与固定的转向地址一样，判断，累计次数，>3次，继续下一个，累计归零。
------解决思路----------------------
if WebBrowser1.ReadyState = READYSTATE_COMPLETE then