Source position: stdctrls.pp line 250
type TMeasureItemEvent = procedure(
Control: TWinControl;
Index: Integer;
var AHeight: Integer
) of object;