Ajuda em dividir String

Eu tô fazendo manipulção para jogar números em um txt e depois somar os números contido ali


Me dêem uma ajuda aqui com esse código

if FileExists(Edit1.Text + '.txt') then
  begin
    verifica := true;
  end else
  begin
      ShowMessage(Edit1.Text + ' não cadastrado!');
  end;

  if verifica = true then
  begin
    AssignFile(arquivo, Edit1.Text + '.txt');
    Append(arquivo);
    Reset(arquivo); //abre o arquivo para leitura;
    Read(arquivo,leitor);
    campo := TStringList.Create;
    try
      Split(' ', leitor, campo);
    finally

    // verifica
    if ((campo[0] = Edit1.Text) and (campo[1] = Edit2.Text)) then
    begin
      Form2.Close;
    end;
    end;
  end;
  Closefile(arquivo);
end;

Como eu sei quantos (vetores array) campo no caso do código é criado

tipo neste txt que tem o nome de Ewerton.txt tá assim
Ewerton 123

campo nome e senha

ai confere nome e senha e libera o acesso beleza
mais agora eu quero inserir números depois disto?
Como eu vou saber quantos campos foram divididos
ex.
campo[0]
campo[1]
campo[2]
campo[3]
quantos têm?
para saber até onde somar a lista de Strings ?