Это вариант на подсчёт в одном поле, для остальных нужно добавить через and или or условие отбора дополнительно
Код:
...
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('SELECT COUNT(*) FROM таблица Where имя_поля=''условие''');
AdoQuery1.Open;
Form1.Label1.Caption:= AdoQuery1.Fields[0].AsString;
...