{
This example displays a message on the form’s status bar indicating the record count after a record is deleted.
} 
procedure TForm1.MyDataAfterDelete(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := Format('There are now %d records in the table', [DataSet.RecordCount]);
end; 

