Fórum Percorrer HTML em busca de uma TAG - WebBrowser Delphi #530148

<td align="center"> 
    <input id="CallBtn" type="button" class="button"
        onclick="confirmaChamada(this,'22179192')"
        value="Confirmar Chamada />
</td>
  
<td align="center"> 
    <input id="CallBtn" type="button" class="button"
        onclick="confirmaChamada(this,'22463368')"
        value="Confirmar Chamada />
</td>

documentoAtivo := WebBrowser1.Document;
Memo1.text := documentoAtivo.Body.OuterHTML;
memo2.lines.Clear;
for i := 0 to Memo1.Lines.Count - 1 do
begin
  if pos('confirmaChamada(this,',Memo1.Lines.Strings[i]) > 0 then
    begin
       ShowMessage(Memo1.Lines.Strings[i]);
       pIni  := pos('this,',Memo1.Lines.Strings[i])+6;
       pFim  := pos(#39+')',Memo1.Lines.Strings[i]);
       memo2.Lines.Add(Copy(Memo1.Lines.Strings[i], pIni , pFim-pIni));  // -> TENTEI ESTE PARA ADICIONAR SOMENTE O TRECHO
       memo2.Lines.Add(Memo1.Lines.Strings[i]);  //-> TENTEI ESTE PARA "TENTAR" ADICIONAR A LINHA INTEIRA
     end;
     ShowMessage('NAO PASSOU');  // MAS EM TODAS AS TENTATIVAS... ENTRAVA AQUI.
  
end;