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

This is ann_Search, a member of class TAnnkd_node.