Warum nicht gleich die RecodeTime-Routine?
yourDateTime := RecodeTime(yourDateTime,14,0,0,0);
PS. Event. kann es bei einem Projekt mit Datums-Daten auch ganz nützlich sein, sich davor erst mal noch alle diesbezüglichen Routinen und Konstanten in der
DateUtils-
Unit anzusehen
