[delphi.com.ar]

En el foro tienes unos cuantos ejemplos de uso de Streams, por ejemplo http://www.clubdelphi.com/foros/showthread.php?t=27767

Código Delphi [-]
procedure PrintLine(S: string);
begin
  with TFileStream.Create('LPT1', fmOpenWrite) do
    try
      S := S + #13#10;
      Write(S[1], Length(S));
    finally
      Free;
    end;
end;

Saludos!