Das ist jetzt geraten und nur so als Idee gedacht:
Delphi-Quellcode:
var
sUhrZeit : String;
begin
sUhrZeit := Format('%.2d%s%.2d%s%.2d',[12, System.SysUtils.TimeSeparator, 0, System.SysUtils.TimeSeparator, 0]);
DateTimePicker1.Time := StrToTime(sUhrzeit);
DateTimePicker2.DateTime := Now + 1;
end;