anchor.diff:  
   begin
     FResponseCode:=0;
  +  FResponseHeader.Clear;
     SecurityFlags:=0;
     FillChar(pURIC, SizeOf(URL_COMPONENTS), 0);
     iFlags := INTERNET_FLAG_RELOAD or INTERNET_FLAG_RAW_DATA;
  
positive.code: destructor THttpConnectionWinInet.Destroy;
  begin
    FHeaders.Free;
    inherited;
  end;
  
  procedure THttpConnectionWinInet.Get(AUrl: string; AResponse: TStream);
  begin
    DoRequest('GET', AUrl, nil,AResponse);
  end;
  
  function THttpConnectionWinInet.GetEnabledCompression: Boolean;
  
negative.code:                         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
  