[lmikle]

Код:

var
  D : TDateTime;
begin
  D := Date; // "сегодня"
  D := Date + 7; // "через неделю" (семь дней)
  D := IncMonth(Date,1); // "через месяц"
  D := IncMonth(Date,-1); // "Месяц назад"
end;

Ну и самый кондовый вариант - через DecodeDate/EncodeDate - тут сам рулишь (почитай хелп по этим функциям).