{$apptype windows} //Режим Windows-приложения
{$reference System.Windows.Forms.dll}
uses
   System, //Системный модуль
   System.Windows.Forms; //Модуль Windows-форм
var
   myForm:Form; //Новая форма
   myLabel:system.Windows.Forms.Label; //Новая метка

procedure myFormKeyPress(sender:Object; //Объект-отправитель сообщения
           e:System.Windows.Forms.KeyPressEventArgs //Структура с данными
           );
Begin
   //Прибавляем к существующему тексту нашей метки символ нажатой клавиши
   myLabel.Text+=e.KeyChar;
end;

begin
   myForm:=new Form; //Создаём форму
   myForm.Text:='Программа'; //Заголовок формы
   //Назначаем обработчик события нажатия кнопки, если форма имеет фокус
   myForm.KeyPress+=myFormKeyPress;
   //Добавляем метку (надпись на форме)
   myLabel:=new system.Windows.Forms.Label; //Создаём метку
   myLabel.AutoSize:=True; //Авторазмер = да
   myLabel.Left:=0; //Позиция (0,0) от левого верхнего угла формы
   myLabel.Top:=0;
   myForm.Controls.Add(myLabel); //Добавляем метку на нашу форму
    
   Application.Run(myForm); //Запускаем приложение с формой myForm
end.