1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

FUNCTION DateOfInternationalDate(iDate: String): String;
// internationalen Datumsstring umwandeln: 2020.07.23 -> 23.07.2020
// fehlerhaftes Resultat ist: 23.07.23.2020
var
  year, month, day: String;
Const
  Dot='.';
BEGIN
  year  := Copy(iDate,1,4);
  month := Copy(iDate,6,7);
  day   := Copy(iDate,9,10);
  Result:=day+Dot+month+Dot+year;
END;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label2.caption:=DateOfInternationalDate(label1.Caption); //  bzw probiert label2.caption:=DateOfInternationalDate('2020.07.23')
end;					

1:
2:
3:
4:
5:
6:
7:

var
  MyFormatSettings: TFormatSettings;
begin
  MyFormatSettings := TFormatSettings.Create('DE-de');
  MyFormatSettings.ShortDateFormat := 'yyyy.mm.dd';
  ShowMessage(DateToStr(StrToDate('2020.07.23', MyFormatSettings)));
end;