Чего творите, всё намного проще
Код:
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);