anchor.diff:    Finally
       FLockAbstractMem.Release;
     End;
  +end;
  +
  +procedure TPCAbstractMem.OnCacheMemFlushedCache(const ASender: TCacheMem;
  +  const AProcessDesc: String; AElapsedMilis: Int64);
  +begin
  +  TLog.NewLog(ltdebug,ASender.ClassName,Self.ClassName+' '+AProcessDesc)
   end;
   
   function TPCAbstractMem.AccountsCount: integer;
  
positive.code: constructor TPCAbstractMem.Create(const ASafeboxFileName: string; AReadOnly: boolean);
  var
    LIsNewStructure : Boolean;
  begin
    FStats.Clear;
  
  
negative.code:   end;
    if FAbstractMem is TFileMem then begin
      TFileMem(FAbstractMem).SetCachePerformance(True,1024,FMaxMemUsage,200000);
      LCacheMem := TFileMem(FAbstractMem).LockCache;
      Try
        LCacheMem.OnFlushedCache := OnCacheMemFlushedCache;
      Finally
        TFileMem(FAbstractMem).UnlockCache;
      End;
    end;
  
    DoInit(LIsNewStructure);
  