Source position: extctrls.pp line 122
type TTabChangingEvent = procedure(
Sender: TObject;
var AllowChange: Boolean
) of object;