procedure ann_Search(box_dist: float); override;

This is ann_Search, a member of class TAnnkd_leaf.