[Страдалецъ]

Ну и делайте простую математическую операцию из текушей даты вычесть дату рождения клиента. Получите некую дату, где ее год будет содержать возраст клиента - 1900 т.е.
Age := YearOf(Now-BirthDay)-1900;