Delphi - Cómo calcular los años de una persona

No he podido calcular la edad de una persona automáticamente a través de la fecha de su nacimiento. Lo lógico es restar la fecha actual con la fecha de nacimiento. Pero no puedo manipular esto, si alguien ya ha realizado algún ejemplo, por favor, dígame cómo. Gracias y saludos.
S. S.

¿Por qué no restas el año de nacimiento del año actual?

//Obtenemos el año de nacimiento.
DecodeDate(vFechaNacimiento, viAnoNacimiento, viMesNacimiento, viDiaNacimiento);

//Obtenemos el año actual.
DecodeDate(Date, viAno, viMes, viDia);

//Restamos:
Edad := viAno - viAnoNacimiento;