Не работает прокси чекер

[nibufep]

Что я сделал не так?

procedure th.Execute;
begin
while work do begin
CS.Enter;
try
InterlockedIncrement(Proxy);
if Proxy<Proxys.Count then CurProxy:=Proxy else Work:=false;
finally
CS.Leave;
end;
if work then begin
http:=THTTPSendEx.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;
http.Timeout:=3000;
if http.get ('ya.ru') then begin
rez:=1;
end else begin
rez:=-1;
end;
http.ClearAll;
http.Free;
Synchronize(Sync);
end;
end;
InterlockedDecrement(Thread);
if thread=0 then begin
Synchronize(Sync2);
end;
end;

procedure th.sync;
begin
case rez of
1:begin
Form4.Label1.Caption:=inttostr(strtoint(Form4.Label1.Caption)+1);
item:=Form4.ListView1.Items.Add;
item.Caption:=IntToStr(Form4.ListView1.Items.Count);
item.SubItems.Add(ip);
item.SubItems.Add(port);
end;
-1:begin
Form4.Label2.Caption:=inttostr(strtoint(Form4.Label2.Caption)+1);
end;
end;
end;

procedure th.sync2;
begin
form4.memo1.lines.add ('Готова');
end;

[min@y™]

bonus to anus

[nibufep]

я не знаю как код подсвечивать.

[min@y™]

я не знаю как код подсвечивать.

тебе-то зачем?

[nibufep]

Сообщение от min@y™

тебе-то зачем?

что тогда не так я не понял

[min@y™]

что тогда не так я не понял

Чего не понял? Процитируй.

[nibufep]

Сообщение от min@y™

bonus to anus

Это я не понял к чему

[min@y™]

Это я не понял к чему

это ссылка, тыкай втуда.

[Stilet]

А что именно не так с кодом в топе?

[min@y™]

А что именно не так с кодом в топе?

каментов и форматирования не хватает, автор этого не поймёт никак.