function WideStringReplace(const S: WideString; const OldPattern: WideString; const NewPattern: WideString; Flags: TReplaceFlags; WholeWord: Boolean = False): WideString;

TntSysUtils

TNT-WARN StringReplace