Модуль: System

Описание
Процедура вставляет подстроку, определенную в параметре Source, в позицию Index строки S (первый символ в строке имеет индекс 1).

Пример
var
   S: string;
begin
   S:= 'Казнить нельзя помиловать.';
   Insert( '!', S, 8);     { S := 'Казнить! нельзя помиловать.'}
   MessageDlg( S, mtWarning, [mbOK],0);
end;