Работа с прокси idHTTP help

[St0rm]

Пишу программу автоматического голосования. со сменой прокси . вобшем такая трабла, прокси меняется, но на прокси серверах есть защита от дос атакк., что после запроса Get стойт подождать секунд 10+ откроется страничка прокси сервера, потом осуществиться переход уже на сам вызываемую страничку после чего над осушестить голосование...
я после get сделал паузу sleep(15000); чтоб подождать когда осушествиться переход, но после него как будто прокси слетает.. в этоги голосование не проходит вчём трабла??
И как сделать чтоб к примеру из *.txt Файла:

192.42.43.23:3128
203.178.133.11:3127
151.100.59.11:3124
192.41.135.218:3124
194.42.17.123:3124
195.116.60.34:3128
156.17.10.51:3128

брались прокси и после каждого голосования загружался новый прокси?

Зы. Без прокси прога работает на ура)

procedure TForm1.Button1Click(Sender: TObject);
var
    i , n : integer;
    s : TStringList;
    A , B : string;
    x  , y : string;
begin
memo1.Clear;
try
n:=StrToInt(Edit1.Text);
except
    MessageDlg('Введите кол-во голосов:',mtInformation,[mbOK],0);
    end;
for i:=1 to n do begin
  idhttp1.HandleRedirects := true;
  A:=IdHTTP1.Get('http://artemokrug.ru/vote/index.php');
  sleep(15000);
  x:=copy(A,pos('',A)+0,10000); 
  memo1.Lines.add(x);
  s:= TStringList.Create;
  s.Add('uid=16');
  s.Add('submit=Голосовать!');
try
  B:=IdHTTP1.Post('http://artemokrug.ru/vote/index.php?act=vote',s);
  y:=copy(B,pos('',B)+0,10000);
  statusbar1.simpletext := ' Status: '+' Вы успешно проголосовали!';
except
  statusbar1.simpletext := ' Status: '+'Неудача!';
end;
s.Free;
memo1.lines.add(y);
{ Button2.Click; // Новый прокси }
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 IdHTTP1.ProxyParams.ProxyServer := Edit2.Text;
 IdHTTP1.ProxyParams.ProxyPort := strtoint(Edit3.Text);
end;

end.

[Квэнди]

Пишу программу автоматического голосования. со сменой прокси

Вы искрене считаете что вам кто- то на это ответит ?
закрыто.