Source position: treelistview.pas line 12
type TOnClickTreeListItem = procedure(
Sender: TObject;
itemIndex: Integer;
itemCaption: string
) of object;