Form := TForm.Create(Application); with Form do try После "try" добавляем пару новых строчек: Form.Font.Name := 'Comic Sans MS'; // Шрифт Form.Font.Size:= 11; // Размер шрифта Шрифт можете указать любой. Если он не меняется, убедитесь, что вы правильно ввели название. Рекомендую заменить шрифт на Segoe UI или хотя бы Microsoft Sans Serif, поскольку по умолчанию там используется устаревший шероховатый "MS Sans Serif"...

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