Para te facilitar
procedure TfrlDANFeRLRetrato.DefinirEntrega;
begin
with fpNFe.Entrega do
begin
rlbEntrega.Visible := NaoEstaVazio(xNome);
if rlbEntrega.Visible then
begin
RLLquadroEntregaNome.Caption := xNome;
RLLquadroEntregaDocumento.Caption := FormatarCNPJouCPF(CNPJCPF);
RLLquadroEntregaIE.Caption := IE;
RLLquadroEntregaEndereco.Caption := XLgr +
IfThen(Nro = '0', '', ', ' + Nro) +
IfThen(EstaVazio(xCpl), '', ' - ' + xCpl);
RLLquadroEntregaBairro.Caption := xBairro;
RLLquadroEntregaCep.Caption := FormatarCEP(CEP);
RLLquadroEntregaMunicipio.Caption := xMun;
RLLquadroEntregaUF.Caption := UF;
RLLquadroEntregaTelefone.Caption := FormatarFone(Fone);
end;
end;
end;
rlbEntrega.Visible := NaoEstaVazio(xNome);
Seu xml , não possui a Tag xNome.