FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = BOOL(1); <<<---hier knallt es!
EnumFontFamiliesEx liefert einen Integer. Bool(1) ist aber ein LongBool.
Folgendes compiliert:
FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = 1;
Ob es auch funktioniert, kann ich nicht sagen.
Die Library liefert erschreckend viele Hints (37) und Warnings (189), die hätte ich meinen Kollegen aber sowas von um die Ohren gehauen.