Uso de TFileStream

[esocrates]

He encontrado en algunos hilos del Foro la recomendación de usar la clase TFileStream para manejo de archivos. No tengo información de cómo se usa esta clase.
¿Me podrían dar algún ejemplo que muestre los elementos fundamentales de su uso , o indicarme dónde hallarlo?
Un saludo y hasta pronto

[delphi.com.ar]

¿Dónde hallar información?... en la ayuda!
Al igual que todos los TStreams, se pueden utilizar accediendo a los métodos básico Create, Read, Write y Seek, como tambien a las propiedades Position y Size.

Dos ejemplos muy sencillos:

Código Delphi [-]
procedure EscribirArchivo(FileName: TFileName; S: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Pointer(S)^, Length(S));
  finally
    Stream.Free;
  end;
end;

function LeerArchivo(FileName: TFileName): string;
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SetString(Result, nil, Stream.Size);
    Stream.Read(Pointer(Result)^, Stream.Size);
  finally
    Stream.Free;
  end;
end;

Saludos

[esocrates]

Muchas gracias delphi.com.ar. Voy a estudiar tus ejemplos.
Un saludo

[NeWNeO]

Si te interesa, en http://www.rawos.com/sw/downloads/Stream64.zip puedes encontrar un Stream con el que puedes cargar como máximo un archivo de 4gb en un FileStream. Funciona igual como te han explicado antes. Es Freeware pero no viene con source code
(... 2. LICENSE AGREEMENT

You can use this SOFTWARE PRODUCT like a freeware.
You may not copy only a part of the SOFTWARE PRODUCT,
but you must always copy entire SOFTWARE PRODUCT. ...)

[esocrates]

Muchas gracias NeWNeO, pero buscaba código para estudiar.
Un saludo y hasta pronto.