[Помогите!] Proxy. ConnectTimeout

[RamDigga]

Эти прокси меня заканают ><
Нужно что бы при запуске потока был конект с прокси, а если нет конекта с прокси более 10 секунд, то надо что бы программа его отбросила, взяла другой прокси из списка и вывела текст в мемо о нерабочей прокси.
А если конект с прокси произошёл, то нужно отправить Post запрос и ответ вывести в мемо.
Вот набросал код, но не думаю что правильно)

procedure TMyThread.Execute;
 var
j:integer;
log:TstringList;
StrPage,ssylka,Proxy:string;
begin
for j := 0 to Form3.Memo1.Lines.Count-1 do
Proxy:=Form3.Memo1.Lines[j];
Form3.IdHTTP1.ProxyParams.ProxyServer:=Copy(Proxy,1,Pos(':',Proxy)-1);
Form3.IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Proxy,Pos(':',Proxy)+1,Length(Proxy)));
if Form3.IdHTTP1.ConnectTimeout < 10000 then
begin
Form3.Memo3.Lines.Add(Proxy+' - Нерабочая прокси ');
end
else
begin
ssylka:='здесь запрос';
log:=TstringList.Create;
log.Add('здесь запрос');
StrPage:=Form3.IdHTTP1.Post(ssylka,log);
Form3.Memo3.Lines.Add(Proxy+' - '+StrPage);
end;
end;

Заранее спасибо.

[Erstown]

Сделай сначало проверку прокси на валид и потом работай с валидными.

[RamDigga]

Цитата: Сообщение от Erstown Сделай сначало проверку прокси на валид и потом работай с валидными.

Omg...
Если вы не заметили, то меня интересует другое.

[Erstown]

Я сказал по смыслу. Если прокси работает, то использовать, если нет, то другое взять. А что мешает использовать сразу валидные?

[=PaLeTiZaToR=]

Вам правильно ответили. сначало берем прокси, отправляем запрос куда нам надо. если запрос прошел то прокси валидно и дальше уже сравниваем валид\невалид сам аккаунт ( если это брут ) а если нет то просто перекидываем этот аккаунт в конец списка для повторной проверки

[RamDigga]

Цитата: Сообщение от =^PaLeTiZaToR^= Вам правильно ответили. сначало берем прокси, отправляем запрос куда нам надо. если запрос прошел то прокси валидно и дальше уже сравниваем валид\невалид сам аккаунт ( если это брут ) а если нет то просто перекидываем этот аккаунт в конец списка для повторной проверки

Зачем мне загонять что-то левое ? Я же совершенно другое прошу...

Добавлено через 19 часов 0 минут
Мне помогут ?)

[Tip.the.besT]

Какой привередливый ТС. КонектТаймаут в 10к и просто проверку сделать:

response:=http.GET(URL);
If response='' them proxylist.delete(0);

Но это не гуд решение, скорее всего у тебя просто все прокси улетят.