Использование несколько прокси в delphi

Здраствуйте.

Потскажите 1 вещь, имеется такой код:

IdHTTP1.ProxyParams.ProxyServer:=Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Length(Edit1.Text)));

idhttp1.Get('http://site.ru/?'+edit1.text);

====

в Edit1 прописан прокси такого вида - 1.1.1.1:8080

Вопрос такой, как можно использовать не 1 прокси а список целый?

ps: Edit1 Это у мя на самом деле Memo, вот мне надо чтобы в мемо можно было сделать список прокси такого вида:

1.1.1.2:8080
1.1.1.2:8080
1.1.1.2:8080

что бы idhttp1.Get('http://site.ru/?'+edit1.text); делал потключения с этих прокси

 

var
i: integer;
proxy: string;
begin
for i:=0 to memo1.lines.count-1 do
begin
proxy:=memo1.lines.strings;
IdHTTP1.ProxyParams.ProxyServer:=Copy(proxy,1 ,Pos(':',proxy)-1);
IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(proxy,Pos(':',proxy)+1,Length(proxy)));
idhttp1.Get('http://site.ru/?'+edit1.text);
end;

 

Goodwin_, неработает что то, вот что выходит:

http://pic2net.ru/view/v/e559d8944767989756e8d34b78c68f2c.jpg

 

всё работает. может прокси нерабочий. или неправильный адрес загружаешь.

 

А непотскажиш еще, как сделать тама чтобы там не 1 запрос был а допустим 20 хотяб

 

Для этого нужны потоки, но не думаю, что ты осилишь их на данном этапе.

 

var
i, ii: integer;
proxy: string;
begin
for i:=0 to memo1.lines.count-1 do
begin
proxy:=memo1.lines.strings;
IdHTTP1.ProxyParams.ProxyServer:=Copy(proxy,1 ,Pos(':',proxy)-1);
IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(proxy ,Pos(':',proxy)+1,Length(proxy)));
for ii:=1 to 20 do
idhttp1.Get('http://site.ru/?'+edit1.text);
end;