{
This example updates the form’s status bar with a message when an AfterInsert event occurs.
} 
procedure TForm1.MyDataAfterInsert(DataSet: TDataSet);
begin
   StatusBar1.SimpleText := 'Inserting new record';
end; 

