* Fix StringReplace not working on ? (bug ID 38224)

packages/rtl/sysutils.pas

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