procedure Merge(var rect: RectangularObjectCollection); virtual;

This is Merge, a member of class RectangularObjectCollection.