даже описывать не буду, просто надо добавить и всё....

в процедуру THIRadioButton._work_doSelect, в конец добавить _hi_OnEvent(_event_onSelect);
ибо как то не правильно, у чекбокса есть событие при установке галочки а у кружочка нет