Разработка на Delphi — удалённая работа в Москве

Разработка приложений для ПК. Консультация по получению данных с сайта и создание соответствующей функции. Есть сайт “Пятёрочки“. На нём информация о товаре. Простым запросом страницы сайт отдавать информацию не хочет - пишет, что не указан магазин. Не понимаю, как понять, какой параметр и как добавить в запрос, чтобы получить нужную информацию. Для получения содержимого страницы пользуюсь найденной в интернете функцией для WinInet, в которой понимаю только один параметр. function page_code(nom_page: string): string; var hInet, hCon, hReq: HINTERNET; Status, StatusSize, Index: DWORD; bytes, b, posit: Cardinal; ResponseString: AnsiString; begin URL := 'api/v1/products/'+nom_page+'/'; hInet := InternetOpen('My Agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if not Assigned(hInet) then raise Exception.Create('Ошибка при выполнении функции InternetOpen' + sLineBreak + SysErrorMessage(GetLastError)); try hCon := InternetConnect(hInet, PAnsiChar(Domen), INTERNET_DEFAULT_HTTPS_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0); if not Assigned(hCon) then raise Exception.Create('Ошибка при выполнении функции InternetConnect' + sLineBreak + SysErrorMessage(GetLastError)); try hReq := HttpOpenRequest(hCon, 'GET', PAnsiChar(URL), HTTP_VERSION, nil, nil, INTERNET_FLAG_SECURE or INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_RELOAD, 0); if not Assigned(hReq) then raise Exception.Create('Ошибка при выполнении функции HttpOpenRequest' + sLineBreak + SysErrorMessage(GetLastError)); try HttpSendRequest(hReq,'', 0, nil, 0); StatusSize := SizeOf(Status); Index := 0; HttpQueryInfo(hReq, HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE, @Status, StatusSize, Index); if Status <> HTTP_STATUS_OK then raise Exception.Create('Ошибка при выполнении функции HttpSendRequest' + sLineBreak + 'Статус: ' + IntToStr(Status) + sLineBreak + SysErrorMessage(GetLastError)); posit := 1; b := 1; ResponseString := ''; while b > 0 do begin if not InternetQueryDataAvailable( hReq, bytes, 0, 0 ) then raise Exception.Create('Ошибка при выполнении функции InternetQueryDataAvailable' + sLineBreak + SysErrorMessage(GetLastError)); SetLength( ResponseString, Length(ResponseString) + bytes ); InternetReadFile( hReq, @ResponseString[Posit], bytes, b ); Inc(Posit, b); end; finally InternetCloseHandle(hReq); end; finally InternetCloseHandle(hCon); end; finally InternetCloseHandle(hInet); end; result:=Utf8ToAnsi(ResponseString) end;.