anchor.diff:      property CacheMemStats : TCacheMemStats read FCacheMemStats;
       {$ENDIF}
       function GetStatsReport(AClearStats : Boolean) : String;
  +    property OnFlushedCache : TOnFinalizedCacheProc read FOnFlushedCache write FOnFlushedCache;
     End;
   
   implementation
  
positive.code:     FMaxCacheDataBlocks: Int64;
      FDefaultCacheDataBlocksSize : Int64;
      FGridCache : Boolean;
      function FindCacheMemDataByPosition(APosition : Int64; out APCacheMemData : PCacheMemData) : Boolean;
      procedure Delete(var APCacheMemData : PCacheMemData); overload;
      function FlushCache(const AFlushCacheList : TOrderedList<PCacheMemData>) : Boolean; overload;
  
negative.code:   FOnSaveDataProc := AOnSaveDataProc;
    FOldestUsed := Nil;
    FNewestUsed := Nil;
    FOnFlushedCache := Nil;
  end;
  
  procedure TCacheMem.Delete(var APCacheMemData : PCacheMemData);
  