var
  myDate : TDateTime;
begin
  myDate := StrToDate('31/01/2000');   // Конец января в високосном годе
  ShowMessage('myDate = '+DateToStr(myDate));

  // Приращение на 1 (значение по умолчанию)
  // 31-е января 2000 ==> 31-е февраля 2000 (неправильно) ==> 29-е февраля 2000
  myDate := IncMonth(myDate);
  ShowMessage('myDate + 1 month = '+DateToStr(myDate));

  // Приращиваем на 12 месяцев
  // 29-е февраля 2000 ==> 29-е февраля 2000 (неправильно) ==> 28-е февраля 2001
  myDate := IncMonth(myDate, 12);      // Приращение на 12 месяцев
  ShowMessage('myDate + 12 months = '+DateToStr(myDate));
end;