anchor.diff:  end;
   
   destructor TAbGzipArchive.Destroy;
  +var
  +    i: Integer;
   begin
     SwapToGzip;
  +  if FTarList.Count > 0 then begin
  +      for I := 0 to FTarList.Count - 1 do TObject(FTarList[i]).Free();
  +  end;
  +
     FTarList.Free;
     FTarStream.Free;
     inherited Destroy;
  
positive.code:   Helper := TAbDeflateHelper.Create;
    try
      FItem.CRC32 := Deflate(AStream, FStream, Helper);
      FItem.UncompressedSize := AStream.Size;                              {!!.02}
  //    FItem.UncompressedSize := FStream.Size{Helper.NormalSize};         {!!.02}
    finally
      Helper.Free;
  
negative.code:                     ChDir( SaveDir );
                    end; {SaveDir}
  
  {$WARN SYMBOL_DEPRECATED OFF}
                    DateTime := FileAge(CurItem.DiskFileName);
  {$WARN SYMBOL_DEPRECATED ON}
                    CurItem.LastModFileTime := LongRec(DateTime).Lo;
                    CurItem.LastModFileDate := LongRec(DateTime).Hi;
  
  