anchor.diff:  var
     rec: TKMRngLogRecord;
   begin
  +  if Self = nil then Exit;
  +
     rec.ValueType := lrtExt;
     rec.ValueE := aValue;
     rec.CallerId := GetCallerID(aCaller, aValue, lrtInt);
  
positive.code: var
    LoadStream: TKMemoryStreamBinary;
  begin
    if not FileExists(aPath) then
    begin
      gLog.AddTime('RandomsChecks file ''' + aPath + ''' was not found. Skip load rng');
  
negative.code: 
  //    property RngLogStream: TKMemoryStream read fRngLogStream;
  
      property Enabled: Boolean read GetEnabled write fEnabled;
  
      procedure SaveToPath(aPath: String);
  //    procedure ParseSaveStreamAndSaveAsText(aPath: String);
  