Работа Put.
Когда Вы посылаете объект в поток методом Put, поток берет указатель VMT со смещением 0 от объекта и просматривает список типов, зарегистрированных с потоками на соответствие. Когда он находит соответствие, поток выбирает регистрационный номер ID объекта и записывает его в поток. Поток затем вызывает метод Store объекта для записи объекта. Метод Store использует процедуру Write потока, которая записывает правильное число байт в поток. Ваш объект ничего не знает о потоке. Это может быть дисковый файл, EMS память или другой тип потока - Ваш объект просто говорит "Запиши меня в поток" и поток выполняет остальное.
