Fórum duvida delphi xe 7 testando valores #603320

boa noite pessoal se alguem puder me tirar esta duvida, fiz este codigo se a forma de pagamento for 1 no caso dinheiro
no txt_pro_preco rece o valor dinheiro se nao no txt_pro_precoprazo recebe o valor so que eu tenho o txt_total e o txt_totalprazo
que eu queria que na hora da soma total se fosse dinheiro o txt_totalprazo = 0 e se a prazo txt_total = 0

procedure tf_pdv.proceduretotalvenda;
begin
// pegando o valor da forma dinheiro e prazo
dm.sql_listarpedidos.First;
total_pedido := 0;
total_pedido_prazo := 0;

while not dm.sql_listarpedidos.eof do
begin
if dm.sql_listarpedidosped_forma.Value = 1 then
begin

total_pedido := total_pedido + dm.sql_listarpedidospro_preço.Value;
total_pedido := total_pedido + dm.sql_listarpedidossubtotal.Value;

end
else
begin
total_pedido_prazo := total_pedido_prazo + dm.sql_listarpedidospro_preco_prazo.Value;
total_pedido_prazo := total_pedido_prazo + dm.sql_listarpedidossubtotalprazo.Value;
end;

dm.sql_listarpedidos.Next;
end;
txt_pro_preco.Value := total_pedido;
txt_pro_prazo.Value := total_pedido_prazo;



end;