Source position: lclproc.pas line 306
procedure UTF8Delete(
var s: String;
StartCharIndex: Integer;
CharCount: Integer
);