Source position: msetabs.pas line 130
type createtabeventty = procedure(
const sender: tcustomtabbar;
const index: Integer;
var tab: ttab
) of object;