Source position: winapih.inc line 94
function EnumFontFamilies(
DC: HDC;
Family: Pchar;
EnumFontFamProc: FontEnumProc;
LParam: Lparam
):LongInt;