Запрос на счет записей

procedure TTab2.Button1Click(Sender: TObject);
var  a: TADOQuery;
a:= TADOQuery.Create(nil);
a.Connection:= fDM.ADOConnection1;
a.SQL.Text:='select count(*) as cnt from LichDan where Year([Дата рождения])>35;
a.Open;
StringGrid1.Cells[4,0]:=a.FieldByName('cnt').Asstring;
a.Close;
a.Free;

... := DateToStr(ADOQuery1.FieldValues['cnt']);

a.SQL.Text:='select count(*) as cnt from LichDan where Year([Дата рождения])>35';

uses DateUtils;
 
procedure(....)....//Сам напишешь
var
     i,Count:Integer;
     D:TDateTime;
     CurrentDate:TDateTime;
begin
   CurrentDate:=SysUtils.Date;
   //Создаем Query, подключаем к БД
   ADOQuery1.SQL.Add('SELECT [Датарождения] FROM [LichDan]');
   ADOQuery1.ExecSQL;
   Count:=0;
   for i:=1 to ADOQuery1.RecordCount do
   begin
      ADOQuery1.RecNo:=i;
      D:=ADOQuery1.FieldValues['Датарождения'];
      if DateUtils.YearsBetween(CurrentDate,D)<35 then
         Count:=Count+1;
   end;
   //Удаляем Query
   //С "Count" делаем все что надо 
end;

ADOQuery1.SQL.Add('SELECT [Датарождения] FROM [LichDan]');
ADOQuery1.ExecSQL;

ADOQuery1.Close;
ADOQuery1.SQL.Add('SELECT [Датарождения] FROM [LichDan]');
ADOQuery1.Open;