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

Следующуя функция возвращает true, если маленькие шрифты установлены в системе. Так же можно заменить строку
<code delphi>Result := (GetDeviceCaps(DC, logpixelsx) = 96);</code>на 
<code delphi>Result := (GetDeviceCaps(DC, logpixelsx) = 120);</code> чтобы определять - установлены ли в системе крупные шрифты.
<code delphi>
Function UsesSmallFonts: boolean; 
var 
   DC: HDC; 
begin 
     DC := GetDC(0); 
     Result := (GetDeviceCaps(DC, logpixelsx) = 96); 
     ReleaseDC(0, DC); 
end; 
</code>