Writeln to stream

Кто-нибудь знает, как связать дескриптор файла (текста) с компонентом TStream, так что writeln() как I/O может быть перенаправлен на поток? (подобно FPC модулю StreamIO). Есть ли где-нибудь предопределенная функция (я использую XE, но было бы неплохо, если бы она работала и на 2009)

У меня много бизнес-кода, который полагается на writeln(f,), как опции форматирования, которые я хотел бы обновить, чтобы вести журнал по сети. Это обновление должно быть сделано относительно безопасным способом, поскольку файлы должны оставаться неизменными до байта.

(Переписывать этот бизнес-код другими средствами не вариант, если его не существует, то мне придется попробовать самому, или обойтись записью в tempfile и чтением его обратно)

Добавлено: любой пример пользовательского textrecs будет приветствоваться и/или какие из его полей имеют безопасное место для пользовательского состояния.