Returns the given date incremented by the number of years given as the ANumberOfYears parameter.

Declaration: Function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer): TDateTime;

This is a simple example.

procedure OnMapEvent(var Value:Variant);
begin
//Returns a date incremented by 7 years
Value := IncYear(Date,7);
end;