Вот код получения данных:
  hOpen := InternetOpen('Test', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hConnect := InternetConnect(hOpen, pchar(fWebServer), INTERNET_DEFAULT_HTTPS_PORT, '', '',   INTERNET_SERVICE_HTTP, 0, 0);
  hRequest := HttpOpenRequest(hConnect, 'POST', pchar(fPage), HTTP_VERSION, '', nil,   INTERNET_FLAG_SECURE, 0);
 
  if not HttpSendRequest(hRequest, 'Content-Type: application/x-www-form-urlencoded', 47, PChar(fHeaders), Length(fHeaders)) then
    raise exception....;

  InternetQueryDataAvailable(hRequest, dataSize, 0, 0);

В результате по какой то причине функция InternetQueryDataAvailable иногда возвращает размер на 30-40 меньше реального размера полученных данных.
Не могу никак понять в чем дело. Спасибо...

msdn
InternetQueryDataAvailable returns the number of bytes of data that are available to be read immediately by a subsequent call to InternetReadFile

а надо

HttpQueryInfoW использовать не могу потому что она читает из хедера, а это зависит от того кто посылает данные, то есть его может и не быть. Поэтому остается читать данные в цикле пока не кончатся