procedure THIRadioButton._OnClick;
//var i:integer;
begin
  {
  for i := 0 to Control.Parent.ChildCount-1 do
   if Control.Parent.Children[i].Style and BS_RADIOBUTTON > 0 then
     SendMessage(Control.GetWindowHandle, BM_SETCHECK, BST_UNCHECKED, 0);

  Control.SetChecked(true);
  }
  _hi_OnEvent(_event_onSelect); 
end;