ich hab sowas ähnliches bei meinem timer mit drin:
für tage:
tage.Caption:=inttostr(trunc(DateTimePicker1.Date-date));
für stunden
Delphi-Quellcode:
if datetostr(date)=datetostr(datetimepicker1.Date)
then
if zeit.caption<timetostr(rectime)
then stunden.Caption:=timetostr(rectime-time);
rectime ist dabei die zeit, die du vorher eingestellt hast (bei mir die zeit zum beenden der programme)
das ganze steht natürlich allen im ontimer, damit auch kräftig runter gezählt wird (timer auf ca. 1000ms stellen)