[tavka]

привет
написал программульку которая берет из файла (список прокси)
текущий прокси и через WebBrowser заходит на сайт и нажимает там кнопку submit
но все это очень медленно, то есть на экране программы сначало загружается сайт, потом нажимается кнопопчка, потом поставил еще паузу, что бы данные точно отправились (нажатие кнопки) и т.д.
можно ли как то это убыстрить у WebBrowser, или подскажите в сторону какого компонента копать?!?!
заранее спасибо

Код:

    var PIInfo : PInternetProxyInfo;
    z:integer;

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
letter:string;
i:integer;
begin
i:=1;
 AssignFile(myFile, 'c:\000.txt');
  Reset(myFile);
  while not Eof(myFile)  do
  begin
   Readln(myFile, letter);  
   edit1.Text:=inttostr(i)+' '+letter;  edit1.Refresh;
   New (PIInfo) ;
   PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;  //  зменение   настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar(letter);  //  указать  прокси  напр.
  PIInfo^.lpszProxyBypass := PChar('');  //  Список адресов, доступ к   которым возможен минуя Proxy сервер
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
  WebBrowser1.Silent := true;
  WebBrowser1.navigate('shttp://site.ru');
  while WebBrowser1.ReadyState<> 4 do
       Application.ProcessMessages;
  i:=i+1;
  try
     WebBrowser1.OleObject.Document.forms.item(0).elements.item(0).click;
  except
     sleep(100);
  end;
  sleep(5000);
  Dispose (PIInfo) ;
  end;
 CloseFile(myFile);
end;
end.