var
a:integer;
b,c:string;
begin
  h.host:='www.google.ru';
  j.Max:=memo4.Lines.Count;
////////

for  a:=1 to memo4.Lines.Count-1 do
begin
 Application.ProcessMessages;
if pos(':',memo4.Lines[a])>0 then
 begin
 b:=copy(memo4.Lines[a],0,pos(':',memo4.Lines[a]));
 c:=copy(memo4.Lines[a],pos(':',memo4.Lines[a])+1,length(memo4.Lines[a])+1);
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;