var
a:integer;
b,c:string;
begin
  h.host:='www.google.ru';
  j.Max:=memo4.Lines.Count;
////////
Application.ProcessMessages;
for  a:=0 to memo4.Lines.Count-1 do
begin
if pos(':',memo4.Lines[a])>0 then
 begin
 b:=copy(memo4.Lines[a], 0, pos(':',memo4.Lines[a])-1);
 c:=copy(memo4.Lines[a],pos(':',memo4.Lines[a])+1,length(memo4.Lines[a]));
end;
////
form1.Caption:=inttostr(a)+b;
 j.Position:=a;
 h.ProxyParams.ProxyServer:=b;
 h.ProxyParams.ProxyPort:=strtoint(c);
 try
 h.get('www.google.ru');
 except
 form1.Caption:='Проверка прокси';
 end;