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:                     ChDir( SaveDir );
                    end; {SaveDir}
  
                    DateTime := FileAge(CurItem.DiskFileName);
                    CurItem.LastModFileTime := LongRec(DateTime).Lo;
                    CurItem.LastModFileDate := LongRec(DateTime).Hi;
  
  
negative.code:     procedure SaveGzHeaderToStream(AStream : TStream);
      procedure LoadGzHeaderFromStream(AStream : TStream);
    public
  
      property CompressionMethod : Byte
        read FGZHeader.CompMethod write FGZHeader.CompMethod;
  