Con respecto a tu problema, he estado haciendo pruebas y te adelanto el código que he conseguido hasta ahora, espero te sirva, si ves que no funciona pon la parte que falla y lo intentamos arreglar.
Código Delphi
[-]AnosNeftali:=AnosNeftali-1;
Ejecutalo a ver si te sientes más joven.
Saludos.