{
This example updates the form’s status bar with a message when an AfterPost event occurs.
} 
procedure TForm1.MyDataAfterPost(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := 'Record changes complete';
end; 

