转自：原文链接
描述：IncYear函数将传递进来的StartDateTime参数加上NumberOfYears数量的年数。
增减的数量是可选的，默认为1。
增加年份后，如果日期数对于当前年月而言太大的话，它会自动缩减为当前年月的最大日期值。
例：
IncYear(now);//当前日期加1年
IncYear(now, 5);//当前日期加5年
IncYear(now, -1);//当前日期减1年
需要操作月份就调用IncMonth()函数，需要操纵日就调用IncDay()函数，用法类似。
还有IncWeek()、IncHour()、IncMinute()、IncSecond()等。
备注：没有DecYear这个函数，相反，在IncYear中使用一个负数增加量。
需求：在循环中给i加1或加n（减1或减n）
用Inc()或Dec();
例
procedure TForm1.test();
var
i : integer;
begin
i := 0;
for y := 0 to 100 do
begin
Inc(i);//每次给i+1；
Inc(i, 5);//每次给i+5；
Dec(i);//每次给i-1;
Dec(i, 5);//每次给i-5；
end;
end;