Source position: expandablelistview.pas line 12
type TOnGroupItemExpand = procedure(
Sender: TObject;
groupItemPosition: Integer;
groupItemHeader: string
) of object;