Source position: checklst.pas line 36
type TCheckListClicked = procedure(
Sender: TObject;
Index: Integer
) of object;