Modificar hora en tiempo de ejecución

[Lizeth]

Hola, quiero hacer algo como el reloj de windows, que le doy clic a la hora y me abre un reloj y un edit que puedo modificar manualmente o con las flechitas para incrementar las horas, minutos o segundos y que siga corriendo, con los nuevos datos que introduje.

Hay algun componente gratis? o alguien ya hizo algo por el estilo?

La otra si no hay nada bueno tendre que limitarme y hacerlo mas sencillo ja pero claro para mi no es tan sencillo. Poner un DateTimePicker con la hora, minutos y segundo del sistema. Si el usuario cambia la hora, minuto o segundo al hacer el onChange o el onExit, en un Edit que aparezca la hora que el usuario seleccciono pero que empiece a correr el tiempo.

Ya tengo algo como esto pero mi timer no avanza se queda con la hora fija del DateTimePicker, no se como asignarle la nueva hora y que avance a partir de la hora que yo le digo porque si pongo

Código Delphi [-]
 
Edit1.Text := timetostr(Time);

con un intervalo de 1000 obvio me da la hora de mi maquina y yo quiero que lo haga para la hora que el usuario selecciono en el datetimepicker.

Gracias