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

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

@@ -1060,7 +1060,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])];