[Alegun]

Чего творите, всё намного проще

Код:

uses 
DateUtils;
...

var
  myDate : TDateTime;
begin

// прибавить к myDate один год
myDate := IncYear(myDate);

// прибавить пять лет, итд.
myDate := IncYear(myDate, 5);

// вычесть пять лет
myDate := IncYear(myDate, -5);

end;

З.Ы. Упс, про один день сразу не заметил, но это тоже не сложно

Код:

// прибавить день
myDate := IncDay(myDate);
// убавить на один день
myDate := IncDay(myDate, -1);