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