TDate und TTime zu TDateTime wandeln

[Bünni]

Vielleicht zuviel Kaffee getrunken oder zu wenig geschlafen. Oder es fehlt an Erfahrung mit dem Umgang mit Datumswerten?
Zur Auswahl stehen ein Datum TDate und eine Uhrzeit TTime. Wie erzeugt man aus dieser Kombination einen neuen TDateTime, egal welcher Datums- und Uhrzeitformatierung ein System eingstellt hat?

Als Notlösung mache ich das so

Delphi-Quellcode:

 FS := FormatSettingsCreateEx(',', '.', ':', '/'); // meine eigene Funktion, damit es kürzer wird

 DT := StrToDateTime( FormatDateTime('dd/mm/yyyy', Date, FS) + ' ' + TimeToStr(Time, FS), FS) );