ok_property_decl
type TMyClass = class(TObject)
property MyProperty[S:string]: Integer read GetMyProperty;