Source position: msewidgets.pas line 32
type sizeeventty = procedure(
const sender: tobject;
var asize: sizety
) of object;