* Fix issue 39437

packages/rtl-objpas/src/inc/strutils.pp

@@ -1385,8 +1385,16 @@ begin
 end;
 
 function SplitString(const S, Delimiters: string): TStringDynArray;
+
+Var
+  a : Array of char;
+  I : Integer;
+  
 begin
-  Result := S.Split(Delimiters);
+  SetLength(A,Length(Delimiters));
+  For I:=1 to Length(Delimiters) do
+    A[I-1]:=Delimiters[i];
+  Result := S.Split(A);
 end;
 
 function NaturalCompareText (const S1 , S2 : string ): Integer ;