procedure ann_pri_search(box_dist: float); override;

This is ann_pri_search, a member of class TAnnbd_shrink.