uses System.SysUtils, System.DateUtils;

var
  NowValue: TDateTime;
begin
  NowValue := Now;
  WriteLn(DateTimeToStr(NowValue));

  WriteLn('year is ', YearOf(NowValue));
  WriteLn('month is ', MonthOf(NowValue));
  WriteLn('day is ', DayOf(NowValue));
  WriteLn('hour is ', HourOf(NowValue));
  WriteLn('minute is ', MinuteOf(NowValue));
  WriteLn('second is ', SecondOf(NowValue));

  //1 is Monday, 7 is Sunday
  WriteLn('dayOfWeek is ',
    DayOfTheWeek(NowValue));
end.