Webbrowser и цикл

[_ZixeL_]

В общем, задачу решил таким вот способом. Может кому-то пригодится. Правда, не уверен, что так и надо, но работает.

Procedure Delay(mSec:Cardinal);
Var
  TargetTime:Cardinal;
Begin
      TargetTime:=GetTickCount+mSec;
      While TargetTime>GetTickCount Do
        begin
            Application.ProcessMessages;
            Sleep(1);
            If Application.Terminated then Exit;
        end;
End;


procedure TForm2.Button1Click(Sender: TObject);
var i,k:integer;
     html_tag: Variant;
begin
list:=0;
while list<>Memo1.Lines.Count do
begin
status:='';
try
    Form2.DeleteWebBrowserCache;
    Form2.CopyLP;
     Form2.Webbrowser1.Navigate('http://****.ру/');
      while Form2.WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;

      if (Form2.WebBrowser1.OleObject.Document.all.tags('button').item(5).type='button') then Form2.WebBrowser1.OleObject.Document.all.tags('button').item(5).click;
      html_tag:=Form2.WebBrowser1.OleObject.Document.Forms.Item(4).Elements;
      If (html_tag.item(0).name='login') Then html_tag.item(0).value:=login;
      If (html_tag.item(1).name='passwd') Then html_tag.item(1).value:=pass;
      if (Form2.WebBrowser1.OleObject.Document.all.tags('button').item(10).type='submit') then Form2.WebBrowser1.OleObject.Document.all.tags('button').item(10).click;

     while Form2.WebBrowser1.ReadyState <> 3 do Application.ProcessMessages;

finally
Delay(6000);
\\тут код парсера
Memo1.Lines.Strings[list]:=status+' | '+Memo1.Lines.Strings[list];
list:=list+1;
if list=Memo1.Lines.Count then begin Form2.DeleteWebBrowserCache; Webbrowser1.Refresh;  end;

end;
end;

[_ZixeL_]

Только теперь новая проблема. Цикл прерывается, если два раза подряд логин и пароль неверные. Как исправить?
Continue не помогает.

[NIKOLAYY2]

Только теперь новая проблема. Цикл прерывается, если два раза подряд логин и пароль неверные.

Капча наверно появляется и все остальные твои запросы бессмысленны?
Если да то это защита сервера от подбора.

Меняй юзер-агент, чисти куки после каждого запроса и тд.
Тебя просто серверные скрипты "раскололи".