获取系统当前日期时间

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := FormatDateTime('hh:nn:ss',Now());
Label2.Caption := DateTimeToStr(Date());
Label3.Caption := DateTimeToStr(now());
Label4.Caption := FormatDateTime('yyyy年mm月dd日 hh时nn分ss秒',now());
end;