procedure UTF8Delete(var S: String; StartCharIndex, CharCount: LongInt)  

Удаляет из строки CharCount символов, начиная с позиции StartCharIndex. Позиция начинается с 1.

Параметры:

• S - строка UTF-8.
• StartCharIndex - начальная позиция.
• CharCount - количество удаляемых символов.