TRttiObject

pt 

GetHandle

HasAttribute

GetAttribute

GetAttributes