anchor.diff:        read FGZHeader.Flags write FGZHeader.Flags;
   
       property FileComment : string
  -      read GetFileComment write SetFileComment;
  +      read FFileComment write SetFileComment;
   
       property FileSystem : TAbGzFileSystem {Default: osFat (Windows); osUnix (Linux)}
         read GetFileSystem write SetFileSystem;
   
       property ExtraField : string
  -      read GetExtraField write SetExtraField;
  +      read FExtraField write SetExtraField;
   
       property HeaderCRC : Word
         read GetHeaderCRC;
  
positive.code: procedure TAbGzipItem.SetIsText(const Value: Boolean);
  begin
    FIsText := Value;
    case FIsText of
      True  : FGzHeader.Flags := FGzHeader.Flags or AB_GZ_FLAG_FTEXT;
      False : FGzHeader.Flags := FGzHeader.Flags and not AB_GZ_FLAG_FTEXT;
    end;
  end;
  
  procedure TAbGzipItem.SetLastModFileDate(const Value: Word);
  
negative.code: 
  function TAbGzipArchive.CreateItem(const FileSpec: string): TAbArchiveItem;
  var
    GzItem : TAbGzipItem;
  begin
    if IsGZippedTar and TarAutoHandle then begin
      SwapToTar;
      Result := inherited CreateItem(FileSpec);
    end
    else begin
  