TDate对象初始化有关问题

TDate对象初始化问题
TDate date1；
如何使 date1="2014-01-08"
先谢谢各位！
[解决办法]
 TDate date1 = TDate(2014,1,8);
 ShowMessage(FormatDateTime("yyyy-mm-dd",date1));
[解决办法]
 TDate date1;
 date1 = StrToDate("2014-01-08");
 ShowMessage(DateToStr(date1)); //修正，这样的话这里就不用再 FormatDateTime 了