* Patch from Bart B to fix TPath.GetRandomFileName. Fixes issue #40528

(cherry picked from commit 3c4a2c7380b00ab65c68bc09d8938ab945b2115d)

packages/vcl-compat/src/system.ioutils.pp

@@ -1040,7 +1040,7 @@ begin
   Result:=''; // DO NOT LOCALIZE
   SetLength(Result,FNLen);
   for i:=1 to FNLen do
-    if i = DotAt then
+    if i <> DotAt then
       begin
       C:=Random(3);
       Result[I]:=SelectChars[C][1+Random(SelectLengths[C])];