Разработать приложение, в котором код нажатой клавиши клавиатуры вывести на форму в компонент Memo1, а символ нажатой клавиши клавиатуры вывести на форму в компонент Memo2. Делфи

в событиях . . . . KeyPress всех элементов на форме пропиши код:

//-----------------------

procedure TForm1. FormKeyPress(Sender: TObject; var Key: Char);

begin

memo1. Lines. Add(inttostr(ord(Key)));

memo2. Lines. Add(Key);

end;

//-----------------------

Свойства ReadOnly у обоих memo установи в true

Или приложил готовый проект. Переименую proj2. txt в proj2. zip. Сайт не дает прикреплять архивы. . . .