[Страдалецъ]

Вы такое хотите?

Код:

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