pt
GetPropertyList
(
TControlPropertyStorage
)