-----------------------------------------------------------------
рrocedure AtDelete(Index: Integer);
Удаляет элемент в позиции Index и продвигает последующие элемента на одну позицию. Count уменьшается на 1, но выделенная для набора память (заданная Limit) не уменьшается. Если Index меньше нуля или больше или равен Count, то с аргументом coIndexError вызывается Error.
См. также: TCollection.FreeItem, TCollection.Free, TCollection.Delete.