primeiro defina suas variaveis, e ache os valores digitados do usuario no meu caso usei variaveis (dinheiro,cheque,cartaodebito...etc.)
depois e so informar igual abaixo.
if dinheiro> 0 then begin with pag.Add do begin tPag := fpDinheiro; vPag := dinheiro; end; end;
if Cheque>0 then begin with pag.Add do begin tPag := fpCheque; vPag := cheque; end; end;
if CartaoDebito>0 then begin with pag.Add do begin tPag := fpCartaoDebito; vPag := cartaodebito; end; end;
if CartaoCredito>0 then begin with pag.Add do begin tPag := fpCartaoCredito; vPag := cartaocredito; end; end;
if Carteira>0 then begin with pag.Add do begin tPag := fpCreditoLoja; vPag := carteira; end; end;
if outros>0 then begin with pag.Add do begin tPag := fpOutro; vPag := outros; end; end;