>>475
>>483で答え出てましたが
一応、つことで。

￣￣∨￣￣￣
　 ∧,,∧
　ミ,,ﾟДﾟ彡
　 ﾐ つ[ ｿｳｽ ］).
〜ﾐ ,,　ﾐ　
　 ∪∪　　　1年後は12ヵ月後にしてしまおう

procedure TForm1.Button5Click(Sender: TObject);
var
　Ago1Month: TDate;
begin
　//現在日を表示
　DateLabel1.Caption := DateToStr(Date);

　//5日前を表示
　DateLabel2.Caption := DateToStr(Date - 5);

　//1ヶ月前を表示
　Ago1Month := IncMonth(Date, -1);
　DateLabel3.Caption := DateToStr(Ago1Month);
end;

　 ∧,,∧　 　　 ／>>482
　ミ,,ﾟДﾟ彡　 ＜　Decode/EncodeDateだと
　 U　 U　　　　＼実在しない日付の場合、例外が出てやばいよ。
〜ﾐ　　ﾐ
　 ∪∪　　12月32日とかね。