[*Caro*]

Hola de nuevo hugo, yo me refería a que revisaras las funciones de fecha que tiene DateUtils y te ayudaras con ellas, te pongo un ejemplo.

Código Delphi [-]
var
 Anyos, Meses, Dias : Integer;
 FechaInicio, FechaFin : TDateTime;
begin
 Anyos := YearsBetween(FechaInicio, FechaFin); //Obtenemos la cantidad de años
 if Anyos > 0 then
  FechaInicio := IncYear(FechaInicio, Anyos); //Si existen años, incrementamos esa cantidad de años a nuestra fecha de inicio

 Meses := MonthsBetween(FechaInicio, FechaFin); //Obtenemos la cantidad de meses
 if Meses >0 then
  FechaInicio := IncMonth(FechaInicio, Meses); //Si existen meses, incrementamos esa cantidad de meses a nuestra fecha de inicio

 Dias := DaysBetween(FechaInicio, FechaFin); //Obtenemos la cantidad de dias de lo que queda
 
 showmessage('Años :'+IntToStr(Anyos)+' Meses:'+IntToStr(Meses)+' Dias:'+IntToStr(Dias));

Saluditos