[Alegun]

Это вариант на подсчёт в одном поле, для остальных нужно добавить через and или or условие отбора дополнительно

Код:

...
 AdoQuery1.Close;
 AdoQuery1.SQL.Clear;
 AdoQuery1.SQL.Add('SELECT COUNT(*) FROM таблица Where имя_поля=''условие''');
 AdoQuery1.Open;
 Form1.Label1.Caption:= AdoQuery1.Fields[0].AsString;
...