Delphi Весь код пишется и проверяется в среде разработки Borland Delphi 7, Borland Delphi 10 lite и аналогичных средах разработки.

Обработка клавиатуры. Для того чтобы отловить нажатия клавишь, нужно подключить таймер, это если вы хотите прослеживать клавиатуру без подключения API функций. При работе в среде разработки Delphi Borland Enterprise кидаем на форму будущей программы таймер. Ставим интервал 70 миллисекунд. Энаблед ставим в true. Так же кинем на форму edit.text и в свойствах в значении энаблед поставим false. Дважды щелчек мышки по таймеру в окне программы и переходим в редактор кода в таймере. procedure Timer... begin if getasyncekeystate (49) <> 0 then edit.text1:=edit.text1 +'1'; end getasyncekeystate - понимает что мы хотим узнать нажата или нет клавиша...