uses System.SysUtils;

var
  NowValue: TDateTime;
  ShortStyle, CustomStyle: string;
begin
  NowValue := Now;

  ShortStyle := FormatDateTime(
    'mm/dd/yy hh:nn', NowValue);
  //ShortStyle is '06/05/17 11:45'

  CustomStyle := FormatDateTime(
    'yyyy-mm-dd', NowValue);
  //CustomStyle is '2017-06-05'

  //short form by the system locale
  WriteLn(DateTimeToStr(NowValue));

  WriteLn('shortStyle is ', ShortStyle);
  WriteLn('customStyle is ', CustomStyle);
end.