anchor.diff:    else
       FFileComment := '';
   
  -  { any 16-bit CRC for header present? }
  -  if HasHeaderCRC then
  -    AStream.Read(FCRC16, SizeOf(FCRC16))
  -  else
  -    FCRC16 := 0;
   
     {Assert: stream should now be located at start of compressed data }
     {If file was compressed with 3.3 spec this will be invalid so use with care}
  
positive.code:     property HasFileComment : Boolean
        read GetHasFileComment;
  
      property HasHeaderCRC : Boolean
        read GetHasHeaderCRC write SetHasHeaderCRC;
  
      property IsText : Boolean
        read GetIsText write SetIsText;
  
      property GZHeader : TAbGzHeader
        read FGZHeader;
  
      property IncludeHeaderCrc : Boolean
        read GetHasHeaderCRC write SetHasHeaderCRC;
  
      constructor Create;
    end;
  
negative.code: 
  function TAbGzipItem.GetIsEncrypted: Boolean;
  begin
    Result := (FGZHeader.Flags and AB_GZ_FLAG_FENCRYPTED) = AB_GZ_FLAG_FENCRYPTED;
  end;
  
  function TAbGzipItem.GetHasExtraField: Boolean;
  