procedure TForm32.ClientDataSet1AfterScroll(DataSet: TDataSet); begin Label1.Caption := IntToStr(DBGrid2.DataSource.DataSet.RecordCount); end;