Now
　　功能说明：返回当前日期及时间。

　　参考实例：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　 　Label1.Caption := '现在是：' + DateTimeToStr(Now);

　　end;