TWinHTTP USES SynCrtSock procedure hget(const url: string; var ResponseCode: Integer; var ResponseHeader, ResponseData: SockString);var aURI: TURI; http: TWinHTTP;begin http := nil; try aURI.From(url); http := TWinHTTP.Create(aURI.Server, aURI.Port,…