procedure TForm1.MyDataAfterOpen(DataSet: TDataSet);
begin
  { now that the dataset is open, record information is available }
  StatusBar1.SimpleText := 'Record ' + IntToStr(MyData.RecNo) + 'of ' + IntToStr(MyData.RecordCount);
end; 

