var
intA:integer;
...
{Начало проверки прокси}

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

// получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ
  for intA:=0 to ProxyList.Count - 1 do begin
  Proxy:=ProxyList.Strings[intA]; 
  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;
end;
{конец проверки прокси}