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

This is ann_fr_search, a member of class TAnnkd_node.