Si la cantidad de los dias que debes usar no deben ser estrictamente de 30 tambien podras usar, la función IncMonth de Delphi que te devolvera un TDate con un mes a delante, a partir de la fecha que le indiques:
Por ejemplo, si quieres un mensaje que te muestre el mes siguiente a la fecha de hoy, debes hacer lo siguiente:
Código Delphi
[-]ShowMessage(DateToStr(IncMonth(Date)));
Hoy es 23/08/2007, de manera pues que el mensaje te dira, 23/09/2007...
Si quieres mas meses, tendras que indicarlo en el siguiente parametro, asi:
Código Delphi
[-]ShowMessage(DateToStr(IncMonth(Date), 2));
Eso te devolvera dos meses mas adelante, espero que estos ejemplos puedas aplicarlos a lo que necesitas,
