*doInData=Входные данные для передачи|1|
*onOutData=Входные данные, если флажок установлен|2|

#pas
procedure THICheckBox._work_doInData; 
// или procedure THIRadioButton._work_doInData; 
begin
 If  Control.Checked then   _hi_onEvent(_event_onOutData,_Data);
end;