Nevím, jestli jsem celý dlouhatý dotaz dobře pochopil 
. Co kdybys tím TDateTimePicker zadával jen datum a hodinu normálním textovým polem (nebo TSpinEdit). Sloučení provedeš takto (jen příklad):
DatumACas := DateTimePicker1.Date + EncodeTime (StrToInt (Edit1.Text), 0, 0, 0);