Turbo Pascal Documentation

Функция KeyPressed

Модуль Сrt

     Функция: Возвращает значение Тruе, если  на  клавиатуре
нажата клавиша и False в противном случае.
     Описание: KeyPressed
     Тип результата: Булевский (boolean).
     Примечания: Символ (или символы) остаются в буфере кла-
виатуры.  Данная процедура не распознает клавиш перевода ре-
гистра, таких, как Shift, Аlt, NumLock и т.д.
     Отличия: В версии 3.0 проверка на  ситуацию  Сtrl-Вrеак
должна была быть выключена ({С-}), в версии 4.0 и 5.0 тако-
го ограничения нет.
     Прочее: См. также процедуру ReadKey.
     Пример:

uses Crt;
begin
   repeat
     Write('Xx');       { заполнять экран, пока нажата кла-
                          виша }
     until KeyPressed;
end;