Здравствуйте, chia, Вы писали:

C>Здравствуйте, уважаемые!

C>Как задать размер фонта меньше 8?
C>Задаю 7, а он остается 8.
C>В ворде, ноутпаде, делфях и т. д. шрифт уменьшается без проблем.
C>Если Font.Size = 8, тогда эта строчка

C>

C>Font.Size := Font.Size - 1; // Font.Size был равен 8
C>

C>его не меняет.

Поменяй шрифт, т.к. по умолчанию стоит MS Sans Serif, который и не позволяет установить размер меньше 8, например на MS Serif или Courier New.