Source position: comctrls.pp line 1792
type TTVCompareEvent = procedure(
Sender: TObject;
Node1: TTreeNode;
Node2: TTreeNode;
var Compare: Integer
) of object;