Source position: avl_tree.pp line 39
type TObjectSortCompare = function(
Tree: TAVLTree;
Data1: Pointer;
Data2: Pointer
):Integer of object;