Source position: msewidgets.pas line 1197
type fontheightdeltaeventty = procedure(
const sender: tobject;
var delta: Integer
) of object;