程序如何实现将全年的每一天日期列出来？高手请问

程序怎么实现将全年的每一天日期列出来？高手请教
比如我想用memo控件列出未来3年的时间列表怎么做？向下面这样
2014年1月1日
2014年1月2日
.
.
.
2014年1月31日
.
.
.
2014年12月31日
.
2015年1月1日
.
.
2016年12月31日
如此类推,用程序怎么实现

------解决方案--------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

	Memo1->Clear();

	for (double i = TDate("2014/1/1"); i <= TDate("2016/12/31"); i++)

	{

		Memo1->Lines->Add(TDate(i));

	}

}

------解决方案--------------------
LS~~ 这样显示不出汉字年月日吧，应该
mmo1->Lines->Add(FormatDateTime("yyyy\"年\" mm\"月\"dd\"日\"", i));