Bom dia,
Segue o código caso alguém precise de como adicionar texto no campo de mensagens do boleto!
Mensagem.Text := 'Até o vencimento Desconto de '+FormatCurr('R$ #,##0.00', StrToFloat(up.fieldbyname('valor_desconto').AsString))+#13+
'Após o vencimento Juros de '+FormatCurr('R$ #,##0.00',(StrToFloat(CdsCedentejuros.AsString)*strtofloat(up.fieldbyname('valor_base').AsString))/100)
+' ao dia + Multa de '+FormatCurr('R$ #,##0.00',(StrToFloat(CdsCedentemulta.AsString)*strtofloat(up.fieldbyname('valor_base').AsString))/100)+#13+
DBEdObservacao1.Text+#13+
DBEdObservacao2.Text+#13+
DBEdObservacao3.Text;