[marcoszorrilla]

He colocado un rejilla y he dado altas, bajas y siempre me marca el número correcto de registros:

procedure TForm1.FormActivate(Sender: TObject);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

Un Saludo.