А как называется поле где указано гражданство? И какой тип данного поля?
Вот так будет делаться, надо только с запросом определиться:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var q: TADOQuery; //кверик, который будет возвращать количество "нужных" записей
begin
q:= TADOQuery.Create(nil); //создаем кверик
q.Connection:= ADOConnection1; //тут надо указать нужный connection
q.SQL.Text:= ''; //задаем текст запроса
q.Open; //открываем кверик
QRLabel.Caption:= q.FieldByName('').AsString; //вставляем число записей в лэйбл
q.Close; //закрываем кверик
q.Free; //освобождаем кверик
end;