refactor: Missed some multi replaces

Author: gcarreno

utilities/script_builder/Common/scriptbuilder.common.pas

@@ -70,6 +70,8 @@ implementation
   cReplaceEntryInput   = '[[input]]';
   cReplaceEntryThreads = '[[threads]]';
   cCompilerFPC         = 'fpc';
+  cSSD                 = 'SSD';
+  cHDD                 = 'HDD';
 //  cCompilerDelphi      = 'delphi';
 
 resourcestring
@@ -287,16 +289,16 @@ procedure TBuilder.BuildRunScriptBash;
       );
       line:= line + 'echo "-- SSD --"' + LineEnding + tmpStr + LineEnding;
       // Run for HDD
-      tmpStr:= StringReplace(
-        tmpStr,
-        FConfig.InputSSD,
-        FConfig.InputHDD,
-        [rfReplaceAll]
-      );
-      tmpStr := StringReplace(
+      tmpStr:= StringsReplace(
         tmpStr,
-        'SSD',
-        'HDD',
+        [
+          FConfig.InputSSD,
+          cSSD
+        ],
+        [
+          FConfig.InputHDD,
+          cHDD
+        ],
         [rfReplaceAll]
       );
       line:= line + 'echo "-- HDD --"' + LineEnding + tmpStr + LineEnding;