rediskus

for rt := 0 to mmo1.Lines.Count-1 do
   BEGIN
      str:=mmo1.Lines[rt]; // это строка
      idhtp1.ProxyParams.ProxyServer:=Copy(str,1 ,Pos(':',str)-1);
      idhtp1.ProxyParams.ProxyPort:=StrToInt(Copy(str ,Pos(':',str)+1,Length(str)));
   END;