Applied patch from Reinier Olislagers. Fix for Mantis #24159.

rtl/objpas/strutils.pp, ReplaceStr & ReplaceText:
  Correctly assign the result value

git-svn-id: trunk@24028 -

rtl/objpas/strutils.pp

@@ -757,12 +757,12 @@ end;
 
 Function ReplaceStr(const AText, AFromText, AToText: string): string;inline;
 begin
-  AnsiReplaceStr(AText, AFromText, AToText);
+  result:=AnsiReplaceStr(AText, AFromText, AToText);
 end;
 
 Function ReplaceText(const AText, AFromText, AToText: string): string;inline;
 begin
-  AnsiReplaceText(AText, AFromText, AToText);
+  result:=AnsiReplaceText(AText, AFromText, AToText);
 end;
 
 { ---------------------------------------------------------------------