Source position: mserichstring.pas line 203
procedure richdelete(
var value: richstringty;
aindex: Integer;
count: Integer
);