table.dataset nor in edit or insert mode

Pessoal Bom dia.

Preciso de uma ajuda ae de vocês.

tenho um formujlario onde estou lancando despesas de veiculos

kilometragem, valor de combustivel gasto, pedagio estas coisas,

o problema ocorre quando tenho que fazer alguma alteração nesses lancamentos,

clico no botão editar, faço as alterações e depois calcular ai vem o erro abaixo.

tbconsumo dataset not in edit or insert mode.

Segue anbaixo o codigo que estou usando.

Estou usando o Delphi 7 e o firebird 2.0

procedure TFormLancamentos.Button1Click(Sender: TObject);
var vlr1,vlr2,vlr3,total1,total2:real;
VAR KMINI,KMFIM,TOTALKM:INTEGER;

begin if (Tbconsumo.State=dsInsert) or (Tbconsumo.State=dsEdit) then

KMINI:=DBEDIT7.Field.AsInteger;
KMFIM:=DBEDIT8.Field.AsInteger;
TOTALKM:=(KMFIM-KMINI);
DBEDIT9.Field.AsInteger:=TOTALKM;

vlr1 := dbedit9.Field.AsInteger;
vlr2 := dbedit10.Field.AsCurrency;
total1:=(vlr1*vlr2);
dbEdit11.field.AsFloat:= total1;
vlr3 := dbedit13.Field.AsFloat;
total2:=(total1+vlr3);
dbedit14.Field.AsFloat:=total2;
tbconsumo.post;

valeu ae pessoal.