procedure Insert(InsertStr: String; var TargetStr: String; iPos: LongInt)
Вставляет строку InsertStr в строку TargetStr в указанную позицию. Позиция начинается с 1.
Для вставки в начало строки позиция должна быть меньше или равна 1. Для вставки в конец строки позиция должна быть больше длины строки-приемника.
Параметры: