Source position: avl_tree.pp line 101
protected procedure TAVLTree.SetCompares(
const NewCompare: TListSortCompare;
const NewObjectCompare: TObjectSortCompare
);