[jachguate]

podes ayudarte con la clase TStringList:

Código Delphi [-]
var
  Strs: TStringList;
  I: Integer;
begin
  Strs := TStringList.Create();
  try
    Strs.LoadFromFile('c:\datos.txt'); //lees el archivo del disco
    ShowMessage('Lineas: ' + IntToStr(Strs.Count));
    for I:= 0 to Strs.Count - 1 do
      ShowMessage('Linea ' + IntToStr(I+1) + ': ' + Strs[i]);
  finally
    Strs.Free;
  end;

Si son archivos muy grandes, este método resulta costoso en memoria, así como el tiempo de apertura... pero con archivos pequeños/medianos... la simplicidad del código justifica el gasto de recursos...

Hasta luego.