ok_on_property
type TMyClass = class(TObject)
This item has no description.
property on: Boolean read GetOn write SetOn;