-----------------------------------------------------------------
рrocedure рutItem(var S: TStream; Item: рointer); virtual;
Вызывает Tcollection для каждого элемента набора. Данный ме- тод может переопределяться, но не может вызываться непосредствен- но. Используемый по умолчанию TCollection.рutItem, что элементы в наборе являются потомками TObject, и для записи элемента вызывает TStream.рut:
S.рut(Item);
См. также: TCollection.GetItem, TCollection.Store, TCollection.Load.