[lmikle]

В запросе пишешь условие с параметром, например:

Код:

SELECT...
WHERE DOB >= :date18

В программе для этого запроса ставишь заполнение этого параметра:

Код:

  Query1.ParamByName('date18').AsDateTime := IncYear(Date,-18);