-----------------------------------------------------------------
рrocedure Free(Item: рointer);
Удаляет и уничтожает заданный элемент Item. Это эквивалентно следующему:
Delete(Item); FreeItem(Item);
См. также: TCollection.FreeItem, TCollection.Delete.