procedure ann_pri_search(dist: float); virtual; abstract;

This is ann_pri_search, a member of class TAnnkd_node.