Описание
Процедура вставляет подстроку, определенную в параметре Source, в позицию Index строки S (первый символ в строке имеет индекс 1).
Пример var
S: string; begin
S:= 'Казнить нельзя помиловать.';
Insert( '!', S, 8); { S := 'Казнить! нельзя помиловать.'}
MessageDlg( S, mtWarning, [mbOK],0); end;