Работа с Proxy

[DKENT]

Здраствуйте!!
Есть маленькая програмка!!!
Проверяет ip на сайте 2ip.ru)
Но проблема в следуюшем!
Вставляю список HTTP Proxy,нажимаю начать, програма работает,но если попалась прокся которая не работает то выскакивает ошибка


Что нужно дописать чтобы , если прокся не рабочая переходила к следуюшей прокси в списке Memo1

procedure TForm1.Button1Click(Sender: TObject);
var
str,id:string;
i,s:integer;
begin
for i := 0 to memo1.lines.Count-1 do
begin
IdHTTP1.AllowCookies := False;
IdHTTP1.HandleRedirects := False;
Idhttp1.Request.Host:='google.com';
IdHTTP1.Request.UserAgent :='Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.7.62 Version/11.01';
IdHTTP1.ProxyParams.ProxyServer:=Co py(Memo1.Lines[i],1,Pos(':',Memo1.Lines[i])-1);
IdHTTP1.ProxyParams.ProxyPort:=StrT oInt(Copy(Memo1.Lines[i],Pos(':',Memo1.Lines[i])+1,Length(Memo1.Lines[i])));
str:=idhttp1.Get('http://2ip.ru');
s:= PosEx('<big>',str)+5;
id := Copy(str,s,PosEx('<',str,s)-s);
Memo2.Lines.Add(id);
end ;
end;

Заранее благодарен!

[zotox]

try except (или expect (точно не помню)) между str:=idhttp1.Get('http://2ip.ru');

[DKENT]

Можно поподробнее?
Желательно на примере моего кода!
Попробовал так как вы сказали!
Програма вообше неработает!

procedure TForm1.Button1Click(Sender: TObject);
var
str,id:string;
i,s:integer;
begin
for i := 0 to memo1.lines.Count-1 do
begin
IdHTTP1.AllowCookies := False;
IdHTTP1.HandleRedirects := False;
Idhttp1.Request.Host:='google.com';
IdHTTP1.Request.UserAgent :='Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.7.62 Version/11.01';
IdHTTP1.ProxyParams.ProxyServer:=Co py(Memo1.Lines[i],1,Pos(':',Memo1.Lines[i])-1);
IdHTTP1.ProxyParams.ProxyPort:=StrT oInt(Copy(Memo1.Lines[i],Pos(':',Memo1.Lines[i])+1,Length(Memo1.Lines[i])));
try
str:=idhttp1.Get('http://2ip.ru');
except
s:= PosEx('<big>',str)+5;
id := Copy(str,s,PosEx('<',str,s)-s);
Memo2.Lines.Add(id);
end ;
end;
end;

[Voody]

procedure TForm1.Button1Click(Sender: TObject);
var
str,id:string;
i,s:integer;
begin
for i := 0 to memo1.lines.Count-1 do
begin
IdHTTP1.AllowCookies := False;
IdHTTP1.HandleRedirects := False;
Idhttp1.Request.Host:='google.com';
IdHTTP1.Request.UserAgent :='Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.7.62 Version/11.01';
IdHTTP1.ProxyParams.ProxyServer:=Co py(Memo1.Lines[i],1,Pos(':',Memo1.Lines[i])-1);
IdHTTP1.ProxyParams.ProxyPort:=StrT oInt(Copy(Memo1.Lines[i],Pos(':',Memo1.Lines[i])+1,Length(Memo1.Lines[i])));
try
str:=idhttp1.Get('http://2ip.ru');
s:= PosEx('<big>',str)+5;
id := Copy(str,s,PosEx('<',str,s)-s);
Memo2.Lines.Add(id);
except
end ;
end;
end;

[DKENT]

Также работает!!!
Но если прокся которая начинается в цикле не пашет то выдает также ошибку

[Voody]

Не из-под среды запустите. Просто скомпилированный файл