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