Anzahl Datensätze in Statusbar

[zeras]

Ich möchte in einer Statusbar die Anzahl der Datensätze anzeigen.

Das müßte ja so gehen:

Delphi-Quellcode:

  if DM1.IBDatabase1.Connected then begin
    SB1.Panels[0].Text := Format('Anzahl Datensätze %d',[DM1.IBTable1.RecordCount])
  end;

Dies mache ich zur Zeit mit einem Timer. Ist aber bestimmt nicht die eleganteste Art.
Bei den IBTable gibt es ja auch viele Ereignisse, aber wie soll ich das machen? Dann müßte ich ja fast bei jedes Ereignis den obigen Code eintragen oder gibt es ein Ereignis, welches immer eintrifft, wenn etwas an den Tabelle geändert wurde?
Beim Start des Programms müßte die Anzahl gleich drinstehen und dann bei jeder DB Aktion dann entsprechend mehr oder weniger anzeigen.