Mira, seguramente te servirá el siguiente ejemplo que acabo de probar:
- Coloca dos TDateTimePicker en el Form, sus propiedades Kind en dtkTime y un botón con el siguiente código en su OnClick:
Código Delphi
[-]ShowMessage(FormatDateTime('HH:MM:SS', DateTimePicker2.Time-DateTimePicker1.DateTime));
Y Listo, veras como funciona de bonito sin complicarte tanto la vida
.