Source position: comctrls.pp line 1789
type TTVCollapsingEvent = procedure(
Sender: TObject;
Node: TTreeNode;
var AllowCollapse: Boolean
) of object;