怎么取得当前的年、月

如何取得当前的年、月？
有两个Tedit，我想取得当前的年、月，然后第一个Tedit的TEXT为当前的年份，第二个为当前的月份减1。
怎么做呀？
我是菜鸟。

[解决办法]
Edit1.Text := FormatDateTime( 'YYYY ',Now);
Edit2.Text := FormatDateTime( 'MM ', Now);

或者用YearOf MonthOf 函数；

或者用DeCodeDateTime函数