IncMonth returns the given date, incremented by the number of months given as the ANumberOfMonths parameter.

Declaration: Function IncMonth(const AValue: TDateTime; const ANumberOfMonths: Integer): TDateTime;

This is a simple example.

procedure OnMapEvent(var Value:Variant);
begin
//Returns a date incremented by 16 months
Value := IncMonth(Date, 16);
end;