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