[mik]

Код:

...
  //Запрос для получения списка таблиц
  SQL := 'SELECT Name FROM MSysObjects ' +
         'WHERE ParentId=(SELECT ID FROM MSysObjects ' +
         'WHERE NAME='Tables') AND Flags In (0,8)';
  ListTables.CommandText := SQL;
  ListTables.Open;
  //Перебираем список таблиц и в каждой из них считаем записи
  while not ListTables.Eof do
  begin
    SQL := 'SELECT Count(*) FROM ' + ListTables.Fields[0].AsString;
    ADODataSet.CommandText := SQL;
    ADODataSet.Open;
    CountAllRec := CountAllRec + ADODataSet.Fileds[0].AsInteger;
    ADODataSet.Close;
    ListTables.Next;
  end;
...

ЗЫ. Не забывайте про обработку исключений.