ya lo hice como me dijiste que me faltaba solo igualar a cero "0" el Edit1.text, ahora el problemilla que tengo es que ahora la suma me la hace de todos los registros que hay en la tabla, para lo cual te muestro el procedimiento que aplico.. con la logica de hacerlo mientras no sea fin de archivo y NumeroVehiculo=NumeroVehiculo para que lo haga solo con aquellas claves que sean iguales...
Código Delphi
[-]
procedure TFrmBitacora.Button2Click(Sender: TObject);
var importe1:variant;
importeT:variant;
begin
Edit1.Text:='0';
Edit2.Text:='0';
importeT:=edit1.Text;
importe1:=edit2.text;
dm.TbBitacora.First; while ((not dm.TbBitacora.Eof) and (dm.TbBitacoraNumeroVehiculo.Text = dm.TbBitacoraNumeroVehiculo.Text)) do
begin
importe1:= DM.TbBitacora.FieldByName('importe').AsFloat;
importeT := importeT + importe1;
edit1.Text := (importeT);
edit2.Text := (importe1);
dm.TbBitacora.Edit;
dm.TbBitacoraImporteTotal.AsFloat := importeT;
dm.TbBitacora.Next; end;
end;