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