How do I assign defaults to a CLASS’ properties at runtime?

Inspired by this question (“How to get default value for property using RTTI)

Getting a ReadOnly Published property in Delphi using RTTI without exceptions

I want to use RTTI to determine if a control is read-only. My code currently looks like this and works fine.