Source position: virtualtrees.pas line 1728
type TVTAddToSelectionEvent = procedure(
Sender: TBaseVirtualTree;
Node: PVirtualNode
) of object;