* | is special char for regexp

packages/rtl/sysutils.pas

@@ -2929,7 +2929,7 @@ begin
 end;
 
 Const
-  RESpecials = '([\$\+\[\]\(\)\\\.\*\^\?])';
+  RESpecials = '([\$\+\[\]\(\)\\\.\*\^\?\|])';
 
 function StringReplace(aOriginal, aSearch, aReplace: string;
   Flags: TStringReplaceFlags): String;