Utilize a fução IncMonth:
Ex:
minhadata:=IncMonth(date,1);
o 1 segnifica 1 mês, caso queria aumentar 2 meses na data atual digite 2 no
lugar do 1, e assim por diante...