Source position: lcltype.pp line 2544
type FontEnumProc = function(
var ELogFont: TEnumLogFont;
var Metric: TNewTextMetric;
FontType: LongInt;
Data: PtrInt
):LongInt;