* Add escaping of specials ^ and $ to stringreplace

packages/rtl/sysutils.pas

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