현재 날짜 델파이 가져 오기

현재 날짜 델파이 가져 오기

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