Boa tarde obrigado por sua atenção .
O erro estava no nossonumero
Consegui resolver fiz o seguinte :
Estava assim :
CodigoBarras := '033'+'9'+ FatorVencimento +
IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +
'9'+ padR(Cedente.CodigoCedente,7,'0') +
padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13) +
'0'+ padR(trim(Cedente.Modalidade),3,'0');
Alterei para :
CodigoBarras := '033'+'9'+ FatorVencimento +
IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +
'9'+ padR(Cedente.CodigoCedente,7,'0') +
padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13,'0') +
'0'+ padR(trim(Cedente.Modalidade),3,'0');
Resolvido.