{
This example updates the form’s status bar with a message when an AfterCancel event occurs.
} 
procedure TForm1.Table1AfterCancel(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := 'Record changes cancelled for ' + DataSet.Name;
end; 

