Source position: mserichstring.pas line 218
procedure setselected1(
var text: richstringty;
start: halfinteger;
len: halfinteger
);