Delphi - sumar un mes a fecha

hola!! alguien me podría ayudar con esto? estoy trabajando con el componente datetimepicker, para sumar fechas trabajo con numeros enteros, por ejemplo + 30 , y sumo 30 días a la fecha; pero lo que en realidad quiero hacer es variar el mes, para que quede fijo el día. Existe alguna funcion para sumar meses?, sino tengo que hacer un algoritmo que trate las diferencias de días de los meses, incluso tratar el tema de los años bisiestos.
gracias

Esto puede ser lo que buscas

IncAMonth

...

copiado de la ayuda de Delphi7

ncrements date data by one month.

Unit

SysUtils

Category

datetime routines

Delphi syntax:

procedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1);

C++ syntax:

extern PACKAGE void __fastcall IncAMonth(Word &Year, Word &Month, Word &Day, int NumberOfMonths = 0x1);

Description

IncAMonth modifies Year, Month, and Day parameters so the date they describe is incremented by NumberOfMonths months. NumberOfMonths can be negative, to return a date N months previous.

If the input day of month is greater than the last day of the resulting month, the day is set to the last day of the resulting month.

datetimepicker1.value.addMonths(1);