Source position: extctrls.pp line 793
type TCheckGroupClicked = procedure(
Sender: TObject;
Index: Integer
) of object;