Manejo de Archivos con TFileStream

[ecfisa]

Hola.

Comparando la posición con el tamaño, por ejemplo:

Código Delphi [-]
var
  F: TFileStream;
  ch: Char;
begin
  F:= TFileStream.Create(ExtractFilePath(Application.ExeName)+'prueba.txt', fmOpenRead );
  while F.Position <> F.Size do
  begin
    F.Read(ch, 1 );
    Memo1.Text := Memo1.Text + ch;
  end;
  F.Free;
end;

Saludos.