TPerObjClassMapping
Create
TtiBaseObject
pt
QueryInterface
_AddRef
_Release
CreateWithRefCounting
AfterConstruction
BeforeDestruction
NewInstance
TestValid