[JamesBond_Mx]

Aqui es donde utilizo el RecordCount

procedure TAnomal.ActuaClick(Sender: TObject);
Var
Cuenta:Integer;
begin
If DBEResp.Text = 'Algo' then
DBECveREsp.Text:='06';
if DBEEStado.Text = 'Corregida' Then
DBEEstado.Color:=clRed
else
DBEEstado.Color:=clYellow;

try
Modulo1.Anoma.ApplyUpdates;
except
on Exception do
begin
ShowMessage('Esta anomalía ya habia sido capturada');
DBEResp.Visible:=False;
LResp.Visible:=False;
LFechaD.Visible:=False;
DBEFechaD.Visible:=False;
DBRGClasi.Visible:=False;
DBRGRiesgo.Visible:=False;
LFechaP.Visible:=False;
DBEFechaP.Visible:=False;
LFechaC.Visible:=False;
DBEFechaC.Visible:=False;
LEstado.Visible:=False;
DBEEstado.Visible:=False;
LDesc.Visible:=False;
DBMDesc.Visible:=False;
CBTipoInst.ItemIndex:=-1;
DBLCBInst.KeyValue:='';
DBLCBInst.Visible:=False;
LNomAnom.Visible:=False;
Modulo1.Anoma.Delete;
Modulo1.Anoma.Append;
end;
end;
Modulo1.Anoma.Refresh;
Cuenta:=Modulo1.Anoma.RecordCount;
Cuenta:=Cuenta-1;
Cant.Caption:=IntToStr(Cuenta);
end;

A ver que en que estoy mal