Hola, IncYear incrementa en años a la fecha que le pasas como parámetro, te explico el codigo:
Código Delphi
[-]
var Anyos, Meses : Integer;
begin
Anyos := YearsBetween(Now, FechaInicio); if Anyos > 0 then
FechaInicio := IncYear(FechaInicio, Anyos);
Meses := MonthsBetween(FechaInicio, Now);
Saluditos