Delphi - Como extraigo un dato de la fecha

Saludos, mi problema es el sigte: Tengo una tabla dbf y tengo un campo que se llama fechanac que su formato es dd/mm/aaaa, para poder calcular la edad de cada uno necesito extraer el campo ANO para sacar la edad, como puedo extraer solamente el campo ano para hacer el calculo. ANO ACTUAL MENOS ANO NACIMIENTO = edad como hago esto en delphi.

Por Favor ayuda

var
x: integer;
Year, Month, Day: word;
begin

DecodeDate(TutablaFechanac.value, Year, Month, Day);

{
day // dias
Month // Mes
year // año }

End;

Gracias lo probare...

Gracias lo probare...

Hola:

Mira las funciones YearOf o YearsBetween. A partir de la versión D7 por lo menos ya vienen, no se antes. Debes añadir al uses la unit DateUtils.

function YearOf(const AValue: TDateTime): Word;
function YearsBetween(const ANow, AThen: TDateTime): Integer;

Suerte.