actualizar campos tipo moneda en un dbgrid en tiempo de ejecucion

[Goyo]

tengo una tabla llamada BitacoraVehiculos y quiero que al ir actualizando los datos tipo moneda se actualicen de manera automatica en los registros... bueno les explico:

tengo los siguientes campos:

Numerovehiculo fechadeservicio importe importetotal
--------------- -------------- ------- ------------
001 02/04/2006 $200.00 $200.00
001 04/05/2006 $300.00 $500.00
001 07/07/2006 $800.00 $1500.00
002 01/05/2006 $100.00 $100.00
002 17/06/2006 $500.00 $600

el campo importetotal se va actualizando de acuerdo al campo importe por ejemplo: 200=200, 200+300=500, 200+300+800=1500 , osea que se va actualizando el registro siguiente y es donde se almacena (importetotal) el total de gastos por vehiculo.

de hecho lo tengo de la siguiente manera, solo que lo hace buen cuando voy introduciendo un registro por registro, siempre y cuando coincida el numerovehiculo, pero cuando hago alguna modificacion del importe, ya no me actualiza los demas registros...

procedure TFrmBitacora.BtnGrabarClick(Sender: TObject);
var consulta : string;
begin
DM.TbBitacora.post;
dm.TbBitacora.Edit;
consulta:='select sum(importe) as importetotal from BitacoraVehiculos where NumeroVehiculo='+chr(39)+DBNumeroVehiculo.text+chr(39);
query2.SQL.Delete(0);
query2.SQL.Add(consulta);
query2.Active:=False;
query2.Active:=True;
dm.TbBitacora.FieldByName('ImporteTotal').AsCurrency:=query2.Fields[0].AsCurrency;
dm.TbBitacora.Post;
end;

este codigo lo puse en el boton de guardar, pero solo me hace lo que quiero cuando se va grabando registro por registro, pero cuando actualizo algun dato de un registro, el total de todos los gastos por vehiculo se pone en el registro actualizado...
ESTOS DATOS LOS MUESTRO EN DBGRID
les agradezco de antemano su ayuda

[delphi.com.ar]

Fíjate si te sirve este hilo o este otro.

Saludos!