Fórum Socorro Nao sei mais o que fazer... #153485

Alguem poderia me informar o que pode estar acontecendo de errado na hora que eu vou gravar esse registro pela segunda vez;
Por favor de alguma sugestao;

procedure TFormFechDiario.BtGravarClick(Sender: TObject);
var
Tot_Passa,RolIni,RolFin,PC,PE,PI : integer;
Caixa,TR,Arr,V_Tarifa,Diferenca:real;
Begin

V_Tarifa:=TabelaTarifaColetivo.AsFloat;
RolIni:= strtoint(dbedit3.text);
RolFin:= strtoint(dbedit4.text);
PC := strtoint(dbedit5.text);
PE := strtoint(dbedit6.text);
PI := strtoint(dbedit7.text);
TR := strtofloat(dbedit8.text);
Arr := strtofloat(dbedit9.text);
Tot_Passa:= (Rolfin-RolIni);
Caixa := ((Tot_Passa-PC-PE-PI)* V_Tarifa)-TR;
LabelCaixa.Caption := floattostr(caixa);
LabelTotal.Caption := inttostr(tot_passa);
LabelTarifa.Caption := floattostr(V_Tarifa);

//TabelaCircularTot_passa.AsInteger:=(Tot_Passa);
//TabelaCircularCaixa.AsInteger:=(caixa);
//TabelaCircular.edit;
//TabelaCircular.post;
//BtGravar.Enabled:=False;
//BtCancelar.Enabled:=false;
//BtNovo.Enabled:=true;
//DESATIVARDBEDIT(FormFechDiario);
//SHOWMESSAGE(´Registro Gravado com sucesso´);
end;
end;