Settings := TFormatSettings.Create(LANG_GERMAN);

  For i := 0 to High(FormatSettings.LongMonthNames) do
  Begin
    FormatSettings.LongMonthNames[i] := Settings.LongMonthNames[i];
  End;
  For i := 0 to High(FormatSettings.LongDayNames) do
  Begin
    FormatSettings.LongDayNames[i] := Settings.LongDayNames[i];
  End;

  For i := 0 to High(FormatSettings.ShortMonthNames) do
  Begin
    FormatSettings.ShortMonthNames[i] := Settings.ShortMonthNames[i];
  End;
  For i := 0 to High(FormatSettings.ShortDayNames) do
  Begin
    FormatSettings.ShortDayNames[i] := Settings.ShortDayNames[i];
  End;

  FormatSettings.ShortDateFormat := 'dd.mm.yyyy';
  FormatSettings.DateSeparator := '.';
  FormatSettings.TimeSeparator := ':';
  FormatSettings.DecimalSeparator := ',';