Wie bekomme ich eine US-Datumszeit

[Alallart]

Ich habe etwas experimentiert, und habe es hinbekommen. Vielleicht braucht es jemand später auch, deshalb hier der Code:

Delphi-Quellcode:

function US_FormatDateTimeSettings: TFormatSettings;
begin
  //GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Result);
  Result.DateSeparator := '/';
  Result.TimeSeparator := ':';
  Result.ShortDateFormat := 'MM/dd/yyyy';
  Result.ShortTimeFormat := 'hh:mm am/pm';
  Result.LongTimeFormat   := 'hh:mm:ss am/pm';
end;

function Default_FormatDateTimeSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Result);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDate: TDateTime;
begin
  MyDate := StrToDateTime(Edit1.Text, US_FormatDateTimeSettings);

  ShowMessage(DateTimeToStr(MyDate, Default_FormatDateTimeSettings));
end;

Gibt man in Edit1 das Datum und Zeit im Format 01/23/2021 07:27 pm, kommt bei ShowMessage das Format 23.01.2021 19:27:00 raus.