procedure Extr_Min(var Key: float; var Info: Pointer);

This is Extr_Min, a member of class TANNpr_queue.