[WkaymQ48]

Pues deberías dejar descansar a la CPU

Prueba con esto:

Código Delphi [-]
  while not TerminarPrograma do
  begin
    Sleep(10); // <- Añadimos esta linea para decirle a windows que se lo tome con calma