Source position: mseclasses.pas line 166
type setrealindexeventty = procedure(
const sender: tobject;
var avalue: realty;
var accept: Boolean;
const aindex: Integer
) of object;