testing stress of TObjectDictionary