Source position: msetabs.pas line 509
type initsubformeventty = procedure(
const sender: ttabpage;
const asubform: twidget
) of object;