Delphi - Crear un reloj con alarma en Delphi

Me hace falta saber el codigo fuente para hacer un reloj con alarma en Delphi
Gracias a todos los que puedan o no ayudarme

Agregas un timer en tu forma, le das de intervalo 1000, en el evento onTimer de decho componente asignas la hora a un edit o label o lo que quieras usar P.E.

label1.caption:=TimeToStr(Time);//no estoy seguro de la función TimeToStr para evitar errores busca en la ayuda

luego en una variable guardas la hora de alarma y dentro del mismo evento de arriba pones una condición de que si es igual la hora a la de alarma entonces reproduces algún sonido o muestras un mensaje.

NOTA Tu programa debe de estar ejecutandose para que funcione