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

[RamDigga]

var
Proxy:string;
i:integer;
MyThread:TMyThread;
begin
if Length(Memo1.Text) = 0 then
ShowMessage('Поле для Proxy пусто')
else
if Length(Memo3.Text) = 0 then
ShowMessage('Поле Logi пусто')
else
 for i := 0 to Memo1.Lines.Count-1 do
Proxy:=Memo1.Lines[i];
HTTP.ProxyParams.ProxyServer:=Copy(Proxy,1,Pos(':',Proxy)-1);
HTTP.ProxyParams.ProxyPort:=StrToInt(Copy(Proxy,Pos(':',Proxy)+1,Length(Proxy)));
HTTP.ConnectTimeout:= 10000;
MyThread:=TMyThread.Create(True);
MyThread.FreeOnTerminate:=true;
MyThread.Priority:=tpLower;
MyThread.Resume;

Как сделать что бы при не рабочей прокси программа её выкинула и начала брать следующую прокси из списка ?
И надо что бы поток не запускался до тех пор пока программа не найдёт рабочую прокси ><
Заранее спасибо.

[mad_cat]

for i := 0 to Memo1.Lines.Count-1 do begin
Proxy:=Memo1.Lines[i];
HTTP.ProxyParams.ProxyServer:=Copy(Proxy,1,Pos(':',Proxy)-1);
HTTP.ProxyParams.ProxyPort:=StrToInt(Copy(Proxy,Pos(':',Proxy)+1,Length(Proxy)));
HTTP.ConnectTimeout:= 10000;
if {прокся рабочая - как проверять хз} then
begin
MyThread:=TMyThread.Create(True);
MyThread.FreeOnTerminate:=true;
MyThread.Priority:=tpLower;
MyThread.Resume;
end;
end;