Cómo acceder al contenido de un archivo de texto

[[sitrico]]

La forma Simple y tradicional:

Código Delphi [-]
procedure TForm1.LeerTxt(FileName: String);
Var
f : TextFile;
s : String;
begin
memo1.lines.clear; // el memo para poder hacer algo con los strings
AssignFile(f,fileName);
Reset(f);
While not eof(f) do
   Begin
   ReadLn(f,s);
   Memo1.Lines.Add(s);
   Application.ProcessMessages; // para que no se cuelgue la aplicación
   End;
end;

Falta el manejo de errores per es la únicamanera que conozco para leer un archivo línea a línea. Tengo entendido que los stream leen todo el archivo como un bloque.