procedure SetMaxSimultaneousConnections;

const

  OPTION_MAX_CONNS_PER_SERVER = 73;

  OPTION_MAX_CONNS_PER_10_SERVER = 74;

  MAX_SIMULTANEOUS_CONNECTIONS: ULONG = 32;

begin

  InternetSetOption(nil, OPTION_MAX_CONNS_PER_SERVER, @MAX_SIMULTANEOUS_CONNECTIONS, SizeOf(MAX_SIMULTANEOUS_CONNECTIONS));

  InternetSetOption(nil, OPTION_MAX_CONNS_PER_10_SERVER, @MAX_SIMULTANEOUS_CONNECTIONS, SizeOf(MAX_SIMULTANEOUS_CONNECTIONS))

end;