Source position: msefadeedit.pas line 89
procedure tfadeeditfo.sepopaset(
const sender: TObject;
var avalue: Boolean;
var accept: Boolean
);