Lendo Campo do CNPJ do prestador ao invés do tomador no arquivo XML

CNPJ :=  Copy(ArquivoXML.Text,
                    Pos('<documento>', ArquivoXML.Text) + 14,
                    Pos('</documento>',ArquivoXML.Text) - (Pos('<documento>', ArquivoXML.Text) + 14));

<prestador>
                <documento>12345678912345</documento>
                <nome>ASOMEDIC MEDICINA ENGENHARIA E TREINAMENTO LTDA - ME</nome>
                <cep>00000000</cep>
                <logradouro>Av.TESE</logradouro>
                <numero>140</numero>
                <bairro>CENTRO</bairro>
                <estado>MG</estado>
                <municipio>Pedro Leopoldo</municipio>
                <pais>Brasil</pais>
                <telefone>TESTE@TESTE</telefone>
                <email>EXEMPLO@GMAIL</email>
            </prestador>
            <regime>Faturamento</regime>
            <tomador>
                <documento>01523689000000</documento>
                <nome>INFORSERVICE INFORMACOES E SERVICOS EIRELI - EPP</nome>
                <cep>00000000</cep>
                <logradouro> R. 000000</logradouro>
                <numero>44</numero>
                <complemento>LETRA: A</complemento>
                <bairro>CENTRO</bairro>
                <estado>MG</estado>
                <municipio>GGDSFHDDFGSHDF</municipio>
                <pais>Brasil</pais>
                <telefone>administrativo@TESTE</telefone>
                <email>fiscal@TRESTE</email>
                <inscEst>ISENTO</inscEst>
            </tomador>