Title: How to change the date format
procedure TForm1.Button1Click(Sender: TObject);
begin
DateSeparator := '.';
ShortDateFormat := 'dd.mm.yy';
LongDateFormat := 'dddd, dd.mmmm.yyyy';
end;
// Get day and month names
// Tagesnamen und Monatsnamen auslesen
procedure TForm1.Button2Click(Sender: TObject);
begin
{shows the short and long month name of month number 11}
ShowMessage(ShortMonthNames[11] + ' - ' + LongMonthNames[11]);
{shows the short and long day name of day number 6}
ShowMessage(ShortDayNames[5] + ' - ' + LongDayNames[5]);
end;