if FProxyType > -1 then
  begin
    if TP + 1 >= Proxy.Count then
    begin
      Inc(ProxyNumb);
      ProxyThNumb := ProxyNumb;
      if ProxyThNumb >= 4 then
      begin
        Synchronize(Stop);
      end;
      TP := -1;
    end;

    Inc(TP);
    TP1 := TP;

    HTTP.Timeout := TimeOutPx;
    HTTP.Sock.SocksTimeout := TimeOutPx;
    HTTP.Sock.SetTimeout(TimeOutPx);
    HTTP.Sock.SetSendTimeout(TimeOutPx);
    HTTP.Sock.SetRecvTimeout(TimeOutPx);
    case FProxyType of
      0:
        begin
          HTTP.ProxyHost := Copy(Proxy.Strings[TP1], 1, Pos(':', Proxy.Strings[TP1]) - 1);
          HTTP.ProxyPort := Copy(Proxy.Strings[TP1], Pos(':', Proxy.Strings[TP1]) + 1, Length(Proxy.Strings[TP1]));
        end;
      1:
        begin
          HTTP.Sock.SocksType := ST_Socks4;
          if Form3.PSocksAuth.Checked then
          begin
            HTTP.Sock.SocksUsername := SocksAuthLog;
            HTTP.Sock.SocksPassword := SocksAuthPass;
          end;
          HTTP.Sock.SocksIP := Copy(Proxy.Strings[TP1], 1, Pos(':', Proxy.Strings[TP1]) - 1);
          HTTP.Sock.SocksPort := Copy(Proxy.Strings[TP1], Pos(':', Proxy.Strings[TP1]) + 1, Length(Proxy.Strings[TP1]));
        end;
      2:
        begin
          HTTP.Sock.SocksType := ST_Socks5;
          if Form3.PSocksAuth.Checked then
          begin
            HTTP.Sock.SocksUsername := SocksAuthLog;
            HTTP.Sock.SocksPassword := SocksAuthPass;
          end;
          HTTP.Sock.SocksIP := Copy(Proxy.Strings[TP1], 1, Pos(':', Proxy.Strings[TP1]) - 1);
          HTTP.Sock.SocksPort := Copy(Proxy.Strings[TP1], Pos(':', Proxy.Strings[TP1]) + 1, Length(Proxy.Strings[TP1]));
        end;
    end;
  end;