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"...

Я говорю “строки в Lazarus”, потому что для всех опытов и примеров использую именно Lazarus. Но в большинстве случаев то, что работает в Lazarus, будет работать и в Delphi и в других реализациях Паскаля. Строка - это набор символов. В большинстве языков (ну по крайней мере в языках “старой школы”) строку можно трактовать как массив пронумерованных символов. В С/С++, например, первый символ в этом массиве будет иметь индекс 0. А вот в Паскале традиционно первый символ имеет индекс 1. И у того и у другого подхода есть свои причины, но не будем на этом останавливаться...