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

1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...