pdv troco

boa noite fiz este codigo para gerar troco em meu sistema, so que so mostra o troco quando finalizo a venda ate ai tudo bem, mas o valor do troco fica negativo e se o
valor da venda for maior doque o valor recebido o troco fica positivo.

dm.sql_listarpedidos.First;
total_pedido := 0;
total_pedido_prazo := 0;
total_troco := 0;
total_recebido := 0;
while not dm.sql_listarpedidos.Eof do
begin
total_pedido := total_pedido + dm.sql_listarpedidosSubTotal.Value;
total_pedido_prazo := total_pedido_prazo + dm.sql_listarpedidossubtotalprazo.Value;
total_recebido := total_recebido + dm.sql_listarpedidossub_totalrecebido.Value;
total_troco := total_troco + dm.sql_listarpedidossub_totalTroco.Value;
dm.sql_listarpedidos.Next;

end;
// Passando o valor para os campos
txt_total.Value := total_pedido;
txt_total_prazo.Value := total_pedido_prazo;
txt_totaltroco.Value := txt_total.Value - txt_totalrecebido.Value;