Как определить, какой шрифт установлен в системе, большой или маленький

Следующуя функция возвращает true, если маленькие шрифты установлены в системе. Так же можно заменить строку 'Result := (GetDeviceCaps(DC, logpixelsx) = 96);' на 'Result := (GetDeviceCaps(DC, logpixelsx) = 120);' чтобы определять - установлены ли в системе крупные шрифты.

Function UsesSmallFonts: boolean;
var
   DC: HDC;
begin
     DC := GetDC(0);
     Result := (GetDeviceCaps(DC, logpixelsx) = 96);
     ReleaseDC(0, DC);
end;