Date
　　功能说明：返回当前的日期。

　　参考实例：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　 　Label1.Caption := '今天是：' + DateToStr(Date);

　　end;

　　Label显示为：今天是2010年1月1日。