TcxTreeListNodeCompareEvent = procedure(Sender: TcxCustomTreeList; ANode1: TcxTreeListNode; ANode2: TcxTreeListNode; var ACompare: Integer) of object;