procedure ann_search(box_dist: float); override;

This is ann_search, a member of class TAnnbd_shrink.