anchor.diff:      procedure SaveGzHeaderToStream(AStream : TStream);
       procedure LoadGzHeaderFromStream(AStream : TStream);
     public
  -//    property CRC32 : LongInt
  -//      read FCRC32 write FCRC32;
   
       property CompressionMethod : Byte
         read FGZHeader.CompMethod write FGZHeader.CompMethod;
  
positive.code: end;
  
  destructor TAbGzipArchive.Destroy;
  begin
    SwapToGzip;
    FTarList.Free;
    FTarStream.Free;
    inherited Destroy;
  
negative.code:         InGzHelp.WriteArchiveHeader;
          InGzHelp.WriteArchiveItem(FTarStream);
          InGzHelp.WriteArchiveTail;
  
          CurItem := TAbGzipItem.Create();
          try
              FGZItem.Add(CurItem);
              CurItem.Action := aaNone;
              CurItem.CRC32 := InGzHelp.CRC;
              CurItem.UncompressedSize := InGzHelp.FileSize;
          except
              CurItem.Free(); raise;
          end;
  
        end;
  
        {
          When Is Gzipperd Tar and Tar Auto Handle
          it does not seems as if any item is being added to the
          Archive, because AddFiles add all files to the tar and
          the single item is never added.
        }
  
        {TODO -cGZip : Find a better way of saving}
  
        SwapToGzip;
  
  