Source position: msetabs.pas line 342
type movingeventty = procedure(
const sender: tobject;
var curindex: Integer;
var newindex: Integer
) of object;