Source position: msedataedits.pas line 52
type settexteventty = procedure(
const sender: tcustomdataedit;
var atext: msestring;
var accept: Boolean
) of object;