Source position: avl_tree.pp line 108
protected procedure TAVLTree.SetOnObjectCompare(
const AValue: TObjectSortCompare
);