Source position: comctrls.pp line 1791
type TTVExpandedEvent = procedure(
Sender: TObject;
Node: TTreeNode
) of object;