anchor.diff:        read GetHasFileComment;
   
       property HasHeaderCRC : Boolean
  -      read GetHasHeaderCRC;
  +      read GetHasHeaderCRC write SetHasHeaderCRC;
   
       property IsText : Boolean
         read GetIsText write SetIsText;
   
       property GZHeader : TAbGzHeader
  -      read FGZHeader write FGZHeader;
  +      read FGZHeader;
   
       property IncludeHeaderCrc : Boolean
  -      read FIncludeHeaderCrc write FIncludeHeaderCrc;
  +      read GetHasHeaderCRC write SetHasHeaderCRC;
   
       constructor Create;
     end;
  
positive.code:   TAbGzipItem = class(TAbArchiveItem)
    protected {private}
      FGZHeader : TAbGzHeader;
      FIsText : Boolean;
      FCRC16 : ShortInt;
      FExtraField, FFileComment : AnsiString;
      FIncludeHeaderCrc: Boolean;
  
    protected
      function GetFileSystem: TAbGzFileSystem;
      function GetHeaderCRC: Word;
      function GetHasExtraField: Boolean;
      function GetHasFileComment: Boolean;
      function GetHasHeaderCRC: Boolean;
  
negative.code:     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}
  