#pas
procedure THICheckBox._OnClick;
begin
   _hi_onEvent(_event_onCheck,byte(Control.Checked )); // может заремаем эту строку ?
   _hi_onEvent(_event_onClick,byte(Control.Checked ));
end;