Задача:

Когда-то, еще во времена DOSа ходила издевательская игрушка по сетям.
Там поначалу мелькали девочки в завлекательных позах (усыпляли внимание).
Потом, маленько поблуждав, наконец-то игрок натыкался на готовую разоблачиться девочку. Для снятия предмета одежды нужно нажать кнопочку. Для следующего - еще одну, не отпуская первую. И т.д.
Где-то между правым чулком и юбочкой игроку не хватает пальцев, он отпускает кнопки, продумывает рациональный расклад пальцев и начинает снова....
В конце концов, когда торжественно нажимается десятая кнопка и все пальцы намертво прикованы к клавиатуре, вместо долгожданной обнаженной натуры появляется надпись: "Если хоть одна клавиша будет отпущена, начнется форматирование диска С".
Так это или нет - никому проверять не хотелось, поэтому коллизии возникали весьма забавные: от простого нажимания Reset носом до воплей благим матом в опустевшем ночном здании пока заспанный вахтер не приходил и не спасал несчастного, выдернув указанную вилку из розетки.

Нужно написать, примерно то же, но на делфи

Вопрос:
В Pascal есть функция ReadKey - Определяет символ нажатой клавиши. Есть ли похожая продцедура на делфях ?

TKeyPressEvent = procedure (Sender: TObject; var Key: Char) of object;
property OnKeyPress: TKeyPressEvent;

Artvart, и такое есть) я те даж больще скажу что есть OnKeyUp))

Ок спс. Я туплю. Теперь понял