Cette procédure permet d'incrémenter une date du nombre de mois spécifié.
Function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;