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