Cuenta atrás.

[alfredosg19]

¡Hola a todos!, estoy haciendo una pequeña aplicación personal para añadir a otros programas, se trata de calcular el tiempo que queda para una fecha o el tiempo que pasa desde una fecha. El problema es que con las funciones de Delphi DaysBetween por ejemplo puedo calcular los días que faltan para que llegue la cita, con YearsBetween puedo calcular los años que faltan... Pero lo que quiero es que me salga el mensaje "Faltan 3 años, 4 meses, 4 días" por ejemplo. Y no me vale calcular los segundos que quedan con la función daysBetween y multplicarlo por 30, porque ¿y si estamos en un més con 31?¿y si ese año es bisiesto?.
He hecho un array con los meses del año y una función que calcula si estamos en un año bisiesto o no, ¿alguien tiene alguna idea?. Muchas gracias.