“Как вытащить дату из системы в Delphi” Ответ

Как вытащить дату из системы в Delphi

var.
currentDate: TDateTime;
begin.
currentDate := Now;
ShowMessage(DateToStr(currentDate)); //Show the current date.
ShowMessage(TimeToStr(currentDate)); //Show the current time.
end;