como pegar string dentro de outra string?

O problema não é exatamente como indicado na pergunta, vejamos:

Eu tenho um arquivo HTML. Preciso pegar uma string dentro dele, até aí tudo bem, pode-se usar ´POS´ ou ´COPY´, o problema é que não sei até onde (o final) eu posso pegar.

Exemplo:

...
<td>Dr. Moacir</td>
<td>2</td>

<td>Dr. Francisco</td>
<td>106</td>

<td>Dr. Wanderley</td>
<td>2</td>
...

Para pegar o nome ´Dr. Moacir´, dentre todos os outro caracteres dentro deste HTML eu assisti o vídeo daqui da ClubeDelphi de como pegar o Dolar num site, beleza, eu fiz:

Copy(HTML_Retorno,Pos(´Dr. Moacir´,HTML_Retorno) + 23,10);
// HTML_Retorno é o conteúdo completo do arquivo .HTML


Bom, agora preciso pegar o valor abaixo, que pode ser 2,3,4,..100,200,1000..7654.. etc...

O início é fácil, basta contar até o ´2´ no POS, mas e o restante?

Tentei aqui e acho que teria como fazer se eu pegasse a linha ´<td>2</td>´ e pesquisasse esta linha, copiar o valor entre ´<td>´ e ´</td>´, mas não sei como fazer, pois existe outros médicos então, com certeza vai existir outras TAGs parecidas. Teria que pegar iniciando do:

Copy(HTML_Retorno,Pos(´Dr. Moacir´,HTML_Retorno) + 23,10);

// É a quantidade de consultas do dia.

Alguém sabe resolver esta rotina?


Grato por qualquer ajuda.