Replacing TTObject by TTObjectBase