anchor.diff:  constructor TPCAbstractMem.Create(const ASafeboxFileName: string; AReadOnly: boolean);
   var
     LIsNewStructure : Boolean;
  +  LCacheMem : TCacheMem;
   begin
     FStats.Clear;
   
  
positive.code:     function GetMaxAccountKeysCache: Integer;
      procedure SetMaxAccountKeysCache(const Value: Integer);
      procedure SetSavingNewSafeboxMode(const Value: Boolean);
    protected
      procedure UpgradeAbstractMemVersion(const ACurrentHeaderVersion : Integer);
      function DoGetAccount(AAccountNumber : Integer; var AAccount : TAccount) : Boolean;
  
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);
  