procedure Thread.SetProxy;
begin
  if FProxyType > -1 then
  begin
    if TP + 1 <= Proxy.Count then
    begin
      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
    else
    begin
      Inc(ProxyNumb);
      ProxyThNumb := ProxyNumb;
      if (ProxyThNumb = 4) and (TP + 1 >= Proxy.Count) then
      begin
        Synchronize(Stop);
      end
      else
      begin
        TP := -1;
        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;
    end;
  end;
end;