Модуль: SysUtils

type TReplaceFlags = set of ( rfReplaceAll, rfIgnoreCase );

Описание
Функция возвращает строку, полученную из строки S заменой в ней подстроки OldSubstr на подстроку NewSubstr. Строка может содержать многобайтовые символы. Если в параметр Flags включено значение rfReplaceAll, то функция заменяет все подстроки OldSubstr входящие в строку S, иначе заменяется только первое вхождение подстроки. Для того чтобы функция проводила замену без учета регистра, необходимо в параметр Flags включить значение rfIgnoreCase.

Пример
var
   S: string;
   Flags: TReplaceFlags;
begin
   Flags:= [ rfReplaceAll, rfIgnoreCase ];
   S:= 'МАМА - глава семьи';
   S:= StringReplace( S, 'МА', 'ПА', Flags);      { S :='ПАПА - глава семьи' }
   MessageDlg( S, mtInformation, [mbOk], 0);
end;