Delphi - ayuda

hola a todos. soy un iniciado en esto del delphi.
tengo el siguiente codigo:

begin
GetSystemTime(fecha); //devuelve la fecha del sistema
val(SpinEdit1.Text,hora,codigo);
val(SpinEdit2.Text,minuto,codigo1);
fecha1.wHour:=hora;
fecha1.wMinute:=minuto;
salir:=false;

repeat
IF (fecha.wHour=fecha1.wHour)and(fecha.wMinute=fecha1.wMinute) then
salir:=true;
UNTIL salir;

ExitWindowsEx(1,0); //cierra todos los programas y apaga el ordenador
end;

pero, es meterse en el bucle repeat, y el progama se bloquea.
se pone en estado "no responde"
espero que haya alguien que pueda solucionarme este problema. Gracias

Prueba poniendo dentro del bucle la siguiente llamada:

Application.ProcessMessages;

De otro modo, es lógico que la aplicación no responda ya que está ejecutando un bucle que le impide atender cualquier mensaje del sistema.