// *** before: ***
uses
  SysUtils, DateUtils;

var
  D: TDateTime;
begin
  D := Now;
  Writeln(FormatDateTime('yyyy-mm-dd', D));
  Writeln(YearOf(D), ' ', MonthOf(D));
  Writeln(IsInLeapYear(D));
  D := IncDay(StartOfTheMonth(D), 10);
  Writeln(DateTimeToUnix(D));
end;

// *** in version 11: ***
uses
  System.SysUtils, System.DateUtils;

var
  D: TDateTime;
begin
  D := TDateTime.Now;
  Writeln(D.Format('yyyy-mm-dd'));
  Writeln(D.Year, ' ', D.Month);
  Writeln(D.IsInLeapYear);
  Writeln(D.IsAM, ' ', D.IsPM);

  D := D.StartOfMonth.IncDay(10);
  Writeln(D.ToUnix);
  Writeln(TDateTime.NowUTC);   // the plain RTL had no UTC now at all
end;