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:   end;
    if FAbstractMem is TFileMem then begin
      TFileMem(FAbstractMem).SetCachePerformance(True,1024,FMaxMemUsage,200000);
    end;
  
    DoInit(LIsNewStructure);
  
negative.code:     function GetMaxAccountKeysCache: Integer;
      procedure SetMaxAccountKeysCache(const Value: Integer);
      procedure SetSavingNewSafeboxMode(const Value: Boolean);
      procedure OnCacheMemFlushedCache(const ASender : TCacheMem; const AProcessDesc : String; AElapsedMilis: Int64);
    protected
      procedure UpgradeAbstractMemVersion(const ACurrentHeaderVersion : Integer);
      function DoGetAccount(AAccountNumber : Integer; var AAccount : TAccount) : Boolean;
  