[NumLock]

Код:

var
  s: String;
begin
  ADOQuery1.SQL.Text:='select count(name) as count_country from country';
  ADOQuery1.Open;
  s:=ADOQuery1.FieldByName('count_country').AsString;
end;