RosettaCodeData/Task/Date-format/Delphi/date-format.pas

ShowMessage(FormatDateTime('yyyy-mm-dd', Now) +#13#10+ FormatDateTime('dddd, mmmm dd, yyyy', Now));