Замена Подстроки В Строке

[Rusland]

Есть замечательная функция
StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Пример использования:

uses SysUtils
...
var
  s:String;
begin
  s:='С новым годом!';
  s:=StringReplace(s, 'годом', 'счастьем', [rfReplaceAll]);
end;

В результате выполнения в переменной s будет строка 'С новым счастьем!'

Флаг rfReplaceAll говорит о том что заменить нужно все найденные строки.