Tad, а как же тогда с этим
private
procedure _OnClick(ObjObj);
procedure SetCaption(const Value:string);
procedure SetChecked(Value:byte);
public
_event_onCheck:THI_Event;
_event_onClick:THI_Event;

constructor Create(ParentControl);