Необходимо корректно прервать консольное приложение, т.е. так, чтобы оно закончило цикл и остановилось (а не на середине выполнения, как по Ctrl+C).

Необходимый способ остановки: 
1. Cелать консоль активной 2. Нажать ESC.

На данный момент try закрывается until-ом такого вида:

 until (LoWord(GetKeyState(VK_ESCAPE)) = 1);
      Write ('ready  ');
      Writeln('press enter to exit');
      Readln;

Неудобства: 1. если в рамках системы ESC остался нажатым, то приложение всё время сразу будет выходить по заканчиванию цикла, пока не нажмёшь снова. Хочется именно завязать нажатие кнопки в контекст активного окна консоли... 

Подскажите, пожалуйста, как это можно сделать.. ?