Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Несколько функций для TStream

01.01.2007
{These are three utility functions to write strings to a TStream. 
Nothing fancy, but I just ended up coding this repeatedly so
I made these functions
. }
 
unit
ClassUtils;
 
interface
 
uses
 
SysUtils,
 
Classes;
 
{: Write a string to the stream
  @param
Stream is the TStream to write to.
  @param s
is the string to write
  @returns the number of bytes written
. }
function Writestring(_Stream: TStream; const _s: string): Integer;
 
{: Write a string to the stream appending CRLF
  @param
Stream is the TStream to write to.
  @param s
is the string to write
  @returns the number of bytes written
. }
function WritestringLn(_Stream: TStream; const _s: string): Integer;
 
{: Write formatted data to the stream appending CRLF
  @param
Stream is the TStream to write to.
  @param
Format is a format string as used in sysutils.format
  @param
Args is an array of const as used in sysutils.format
  @returns the number of bytes written
. }
function WriteFmtLn(_Stream: TStream; const _Format: string;
  _Args
: array of const): Integer;
 
implementation
 
function Writestring(_Stream: TStream; const _s: string): Integer;
begin
 
Result := _Stream.Write(PChar(_s)^, Length(_s));
end;
 
function WritestringLn(_Stream: TStream; const _s: string): Integer;
begin
 
Result := Writestring(_Stream, _s);
 
Result := Result + Writestring(_Stream, #13#10);
end;
 
function WriteFmtLn(_Stream: TStream; const _Format: string;
  _Args
: array of const): Integer;
begin
 
Result := WritestringLn(_Stream, Format(_Format, _Args));
end;

Взято с Vingrad.ru https://forum.vingrad.ru