[dr. F.I.N.]

По-моему тут все просто:
1. Между заданными датами ищем количество лет:
function YearsBetween(const ANow, AThen: TDateTime): Integer;
2. Увеличиваем меньшую дату на это количество лет:
function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;
3. Между получившимися датами ищем количество месяцев:
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
4. Увеличиваем меньшую дату на количество месяцев:
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
5. Ищем сколько дней между получившимися датами:
function DaysBetween(const ANow, AThen: TDateTime): Integer;

Функции в пунктах 1,2,3,5 в модуле DateUtils, функция из п.4 в модуле SysUtils.