Delphi RTTI中如何使用SetValue进行属性值设置?