Source position: virtualtrees.pas line 1727
type TVTFocusChangeEvent = procedure(
Sender: TBaseVirtualTree;
Node: PVirtualNode;
Column: TColumnIndex
) of object;