procedure Insert(InsertStr: String; var TargetStr: String; iPos: LongInt)  

Вставляет строку InsertStr в строку TargetStr в указанную позицию. Позиция начинается с 1.

Для вставки в начало строки позиция должна быть меньше или равна 1. Для вставки в конец строки позиция должна быть больше длины строки-приемника.

Параметры:

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