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