anchor.diff:                          while InternetReadFile(iRequestHandle, @arBuf, BUFSIZE, iBytesRead) and (iBytesRead > 0) do begin
                             AResponse.Write(arBuf,iBytesRead);
                           end;
  +                        iReserved := 0;
  +                        iSize := MaxHeadSize;
  +                        SetLength(sRespHeader, iSize);
  +                        HttpQueryInfo(iRequestHandle, HTTP_QUERY_RAW_HEADERS_CRLF, PChar(sRespHeader), iSize, iReserved);
  +                        SetLength(sRespHeader, iSize div SizeOf(Char));
  +                        FResponseHeader.Text := sRespHeader;
                           iRetry:=0;
                         end;
                     end else
  
positive.code: 
  function THttpConnectionWinInet.GetResponseHeader(const Header: string): string;
  begin
    raise ENotSupportedException.Create('');
  end;
  
  procedure THttpConnectionWinInet.Patch(AUrl: string; AContent,
  
negative.code: destructor THttpConnectionWinInet.Destroy;
  begin
    FHeaders.Free;
    FResponseHeader.Free;
    inherited;
  end;
  
  procedure THttpConnectionWinInet.Get(AUrl: string; AResponse: TStream);
  begin
    DoRequest('GET', AUrl, nil, AResponse);
  end;
  
  function THttpConnectionWinInet.GetEnabledCompression: Boolean;
  