Как определить, большие или маленькие шрифты используются в системе?

Попробуй это:

FUNCTION SmallFonts : BOOLEAN;
{возвращает TRUE если установлены маленькие шрифты и FALSE если большие }
VAR

DC : HDC; { используется для проверки количества доступных цветов }

BEGIN

DC := GetDC(0);

Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);

{ Если используются большие шрифты, LOGPIXELSX будет равен 120 }

ReleaseDC(0, DC);

END;

[000281]