Altere a função GerarEntrega para o código abaixo e veja se o problema é resolvido.
procedure TNFeW.GerarEntrega;
var
cMun: integer;
xMun: string;
xUF: string;
begin
if trim(nfe.Entrega.xLgr) <> '' then
begin
Gerador.wGrupo('entrega', 'G01');
Gerador.wCampoCNPJCPF('G02', 'G02a', nfe.Entrega.CNPJCPF, 1058);
Gerador.wCampo(tcStr, 'G03', 'xLgr ', 02, 60, 1, nfe.Entrega.xLgr, DSC_XLGR);
Gerador.wCampo(tcStr, 'G04', 'nro ', 01, 60, 1, ExecutarAjusteTagNro(FOpcoes.FAjustarTagNro, nfe.Entrega.nro), DSC_NRO);
Gerador.wCampo(tcStr, 'G05', 'xCpl ', 01, 60, 0, nfe.Entrega.xCpl, DSC_XCPL);
Gerador.wCampo(tcStr, 'G06', 'xBairro', 01, 60, 1, nfe.Entrega.xBairro, DSC_XBAIRRO);
Gerador.wCampo(tcInt, 'G07', 'cMun ', 01, 07, 1, nfe.Entrega.cMun, DSC_CMUN);
if not ValidarMunicipio(nfe.Entrega.cMun) then
Gerador.wAlerta('F07', 'cMun', DSC_CMUN, ERR_MSG_INVALIDO);
Gerador.wCampo(tcStr, 'G08', 'xMun ', 02, 60, 1, nfe.Entrega.xMun, DSC_XMUN);
Gerador.wCampo(tcStr, 'G09', 'UF ', 02, 02, 1, nfe.Entrega.UF, DSC_UF);
if not ValidarUF(nfe.Entrega.UF) then
Gerador.wAlerta('G09', 'UF', DSC_UF, ERR_MSG_INVALIDO);
Gerador.wGrupo('/entrega');
end;
end;