anchor.diff:    Helper := TAbDeflateHelper.Create;
     try
       FItem.CRC32 := Deflate(AStream, FStream, Helper);
  -    FItem.UncompressedSize := AStream.Size;                              {!!.02}
  +    FItem.UncompressedSize := AStream.Size;                         {!!.02}
   //    FItem.UncompressedSize := FStream.Size{Helper.NormalSize};         {!!.02}
     finally
       Helper.Free;
  
positive.code: end;
  
  destructor TAbGzipArchive.Destroy;
  begin
    SwapToGzip;
    FTarList.Free;
    FTarStream.Free;
    inherited Destroy;
  
negative.code: 
  procedure TAbGzipItem.SetFileName(const Value: string);
  begin
    if inherited FileName <> '' then
       inherited SetFileName('');
  
    if Value > '' then begin
      inherited SetFileName(Value) { + #0};
      FGzHeader.Flags := FGzHeader.Flags or AB_GZ_FLAG_FNAME;
    end
    else begin
  