модуль graphabc+crt

Здравствуйте! Помогите, пожалуйста, реализовать выход из цикла по нажатию на клавишу “esc”. Тот способ который я знаю var key:char; -----------------//---------------- repeat if keypressed then key:=readkey; -----------------//---------------- until key=#27; не работает. При подключённом модуле crt программа требует нажатия “alt+F9”. И естественно, графики никакой нет. Код программы, если есть желание, скину.

Программы с подключенным модулем GraphABC работают совершенно по другому принципу. Если уж хочется, что аж зубы сводит, то так:

uses GraphABC;

procedure PressKey(ch : Char);
begin
  //if ch = #27 then { можно снять комментарий, тогда будет срабатывать только по ESC }
  Window.Close;
end;

begin
  Randomize;
  OnKeyPress := PressKey;
  repeat
    PutPixel(Random(Window.Width),Random(Window.Height),rgb(Random(256),Random(256),Random(256)));
    Sleep(10);
  until False;
end.

Спасибо! Всё работает!