function SmallFonts: Boolean;
{Значение функции TRUE если мелкий шрифт}var
DC: HDC;
begin
DC := GetDC(0);
Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
{ В случае крупного шрифта будет 120}
ReleaseDC(0, DC);
end;
Статья Какой шрифт установлен (крупный или мелкий) раздела Графика и Игры Шрифты может быть полезна для разработчиков на Delphi и FreePascal.
