La forma Simple y tradicional:
Código Delphi
[-]
procedure TForm1.LeerTxt(FileName: String);
Var
f : TextFile;
s : String;
begin
memo1.lines.clear; AssignFile(f,fileName);
Reset(f);
While not eof(f) do
Begin
ReadLn(f,s);
Memo1.Lines.Add(s);
Application.ProcessMessages; 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.