anchor.diff:  
     LoadStream := TKMemoryStreamBinary.Create;
     try
  -    LoadStream.LoadFromFile(aPath);
  +    LoadStream.LoadFromFileCompressed(aPath, 'RNGCompressed');
       LoadFromStreamAndParseToDict(LoadStream);
     finally
       LoadStream.Free;
  
positive.code:   Clear;
    LoadStream := TKMemoryStreamBinary.Create;
    try
      LoadStream.LoadFromFile(aPath);
  
      LoadHeader(LoadStream);
  
  
negative.code:   //SaveStream now contains the compressed data from SourceStream
  //  CompressionStream.Free;
  
    TKMemoryStream.AsyncSaveToFileCompressedAndFree(SaveStream, aPath, 'RNGCompressed', aWorkerThread);
  end;
  
  
  