поиск рабочей прокси

[akimov_aleks]

подскажите плиз как нати рабочую прокси.
есть код для проверки переменная с переберает по списку если рабочая прокся то идем дальше а если нет как вернуть цикл чтоб начил дальше переберать...?

{Начало проверки прокси}

begin
// грузим фаил с проксями
  ProxyList:=tstringlist.Create;
  ProxyList.LoadFromFile('Proxy.txt');
  params:=TStringList.Create;
  Presponseres:=TStringList.Create;

// получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ
  Proxy:=ProxyList.Strings[c]; 
  ip:=getip(Proxy);
  por:=getport(Proxy);
  port:=StrToInt(por);

// тут и так понятно
  IdHTTP1.ProxyParams.ProxyServer:=ip;
  IdHTTP1.ProxyParams.ProxyPort:=port;

// начинаем проверку
    try
    IdHTTP1.Get('http://ya.ru');
    except
// вот тут если прокся мертвая как вернуться 
    end;

end;
{конец проверки прокси}