Для каждого потока своя прокси

[nibufep]

Всем доброго дня!
Не как не пойму как сделать.

Нужно из StringList для каждого потока брать следующию проксю, например вот список:

162.208.49.45:7808
209.170.151.142:3127
96.47.239.131:3127
64.120.44.50:23685
162.208.49.45:8089
64.31.22.143:8089
223.252.33.201:17130
74.50.126.248:8089

Запускаю я программу в 3 потока, и нужно чтобы брало прокси:

162.208.49.45:7808 (thread1)
209.170.151.142:3127 (thread2)
96.47.239.131:3127 (thread3)
64.120.44.50:23685 (thread1)
162.208.49.45:8089 (thread2)
64.31.22.143:8089 (thread3)
223.252.33.201:17130 (thread1)
74.50.126.248:8089 (thread2)

И так по кругу пока я не остановлю все потоки. Сейчас сделал так:

procedure th.Execute;
var
i:integer;
begin
while work do begin
CS.Enter;
try
if CurProxy=Proxys.Count then begin
CurProxy:=1;
end else begin
inc(CurProxy);
end;
finally
CS.Leave;
end;
if work then begin
http:=THTTPSendEx.create;
data:=tstringlist.Create;
if proxytype = 'http' then begin
ip:=Copy(Proxys[CurProxy],1,Pos(':',Proxys[CurProxy])-1);
port:=Copy(Proxys[CurProxy],Pos(':',Proxys[CurProxy])+1,Length(Proxys[CurProxy]));
http.ProxyHost:=ip;
http.ProxyPort:=port;
end;
if proxytype = 'socks' then begin
ip:=Copy(Proxys[CurProxy],1,Pos(':',Proxys[CurProxy])-1);
port:=Copy(Proxys[CurProxy],Pos(':',Proxys[CurProxy])+1,Length(Proxys[CurProxy]));
http.Sock.SocksIP:=ip;
http.Sock.SocksPort:=port;
end;

------

Ну он работает таким образом: Сначала все потоки берут первую проксю, отрабатывают, запускаются заново потоки и они берут вторую проксю. Что не правильно?

[Пепел Феникса]

ну так как написано так и работает.
синхронизации то нет, да и список со счетчиком должны быть общими.(либо метод что запршивает новое значение)

[evg_m]

Нужно из StringList для каждого потока брать следующию проксю, например вот список:

Этим (распределением прокси по потокам) должна заниматься основная программа.
В основной есть список (StringList) и она самостоятельно (при запуске потока) "раздает" прокcи (по ОДНОМУ!!) потокам.
Либо же по просьбе потока (после извещения потока об завершении работы с выданным ему прокси) выдает ему другой (из необработанных). Список один и основная программа может и должна иметь возможность отмечать как выданные так и обработанные прокси c тем чтобы знать что ей выдавать следующему потоку который к ней обратится.
набросок