procedure Merge(var rect: RectangularObject);

This is Merge, a member of class Blackrun.