procedure UTF8Insert(const InsertStr: String; var TargetStr: String; StartCharIndex: LongInt)  

Вставляет строку InsertStr в строку-приемник TargetStr в позицию StartCharIndex. Позиция начинается с 1. Если позиция меньше или равна 1, текст вставляется в начало. Если позиция больше длины строки-приемника, то текст вставляется в конец.

Параметры:

• InsertStr - вставляемая строка.
• TargetStr - строка-приемник.
• StartCharIndex - позиция для вставки.