procedure ann_fr_search(box_dist: float); override;

This is ann_fr_search, a member of class TAnnbd_shrink.