Следующуя функция возвращает 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;