Source position: comctrls.pp line 3716
type TTVGetNodeText = function(
Node: TTreeNode
):string of object;