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