[roman]

Código Delphi [-]
var
  Archivo: TStringList;

begin
  Archivo := TStringList.Create;

  try
    Archivo.LoadFromFile('archivo.txt');

    {
      Aquí puedes acceder a las líneas del archivo por índice:

        Archivo[0], Archivo[1], Archivo[2], Archivo[3], etc.

    }
  finally
    Archivo.Free;
  end;
end;

Este método puede no ser adecuado si tus archivos son muy grandes, pero puedes intentarlo a ver como te funciona.

// Saludos