procedure Threshold(threshold: integer);

This is Threshold, a member of class Histogram.