procedure Sort(compare: TListSortCompare);

This is Sort, a member of class RectangularObjectCollection.