Example: AfterDelete, Format

This example displays a message on the form's status bar indicating the table's record count after a record is deleted.

procedure TForm1.MySQLTable1AfterDelete(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := Format('There are now %d records in the table',
                                  [DataSet.RecordCount]);
end;