Клуб программистов

     Функция StuffString вставляет SubString (дополнительную строку) в другую строку, заменяя Length символов, начиная с позиции Start.

     Если длина равна -1, то строка просто вставляется, не заменяя никаких символов.

var
   source, target : AnsiString;
begin
   source := '123456789';
   target := StuffString(source, 2, 4, '-inserted-');

   ShowMessage('Source = '+source);
   ShowMessage('Target = '+target);
end;

Source = 123456789
Target = 1-inserted-6789