Bom dia.
Por favor verifique se seus fontes estão atualizados...note no trecho a seguir que a montagem da mensagem de juros não condiz com a impressa em seu boleto.
if ValorMoraJuros <> 0 then
begin
if DataMoraJuros <> 0 then
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros)) +
' de atraso para pagamento '+
ifthen(Vencimento = DataMoraJuros, 'após o vencimento.',
'a partir de '+FormatDateTime('dd/mm/yyyy',DataMoraJuros))))
else
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros)) +
' de atraso'));
end;
Att.