No registro 5, só gera completo quando informado tipo de pagamento = [flLiquidacaoTitulosProprioBanco,flLiquidacaoTitulosOutrosBancos],
pagBradesco:
begin
wregistro := wregistro + FormatFloat('000000', FQtdeRegistrosLote);
if (FPagFor.Lote.Items[I].Registro1.Servico.FormaLancamento in [flLiquidacaoTitulosProprioBanco,flLiquidacaoTitulosOutrosBancos]) then // Aqui
begin
wregistro := wregistro + FormatFloat('000000000000000000', FPagFor.Lote.Items[I].Registro5.Valor * 100);
wregistro := wregistro + FormatFloat('000000000000000000', FPagFor.Lote.Items[I].Registro5.QtdeMoeda * 100000); // 5 casas decimais
wregistro := wregistro + '000000';
wregistro := wregistro + Space(165);
wregistro := wregistro + Space(10);
end;
end;