1. На форму из вкладки Standart выносим кнопки Button(3шт), Label(1шт) 2. Кликаем на Form1 и меняем свойство Caption на Светофор (даем название нашей форме) 3. Для компонента Button1 свойство Caption указываем Красный 4. Для компонента Button2 свойство Caption указываем Желтый 5. Для компонента Button3 свойство Caption указываем Зеленый 6. Для компонента Label1 свойство Caption стираем и оставляем пустым 7. Должно получиться как на рис...

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