procedure ReplaceNonDestructive(item: RectangularObject; index: integer);

This is ReplaceNonDestructive, a member of class RectangularObjectCollection.