Fórum Como ler um arquivo de texto #289223

var
  Linhas: TStringList;
  i: Integer;
begin
  Linhas := TStringList.Create();
  try
    Linhas.LoadFromFile(NomedoArquivo);
    
    for i := 0 to (Linhas.Count - 1) do
      ShowMessage(Linhas.Strings[i]);
  finally
    FreeAndNil(Linhas);
  end;