{
This example updates the form’s status bar with a message when an AfterEdit event occurs.
} 
procedure TForm1.MyDataAfterEdit(DataSet: TDataSet);
begin
   StatusBar1.SimpleText := 'Editing record' + IntToStr(DataSet.RecNo);
end; 

