Recorrer base de datos registro por registro

[Goyo]

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;   //nos colocamos en el 1 registro
  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; // brincamos al siguiente registro
  end;
end;