* Fix copy and paste error. Fixes issue #40863

(cherry picked from commit 963a55db527b89ce0d0a3d5d9229c533aeefc360)

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

@@ -773,12 +773,12 @@ end;
 
 function ExcludeTrailingBackslash(const S: AnsiString): AnsiString;
 begin
-  Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeLeadingPathDelimiter(S);
+  Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeTrailingBackslash(S);
 end;
 
 function ExcludeTrailingPathDelimiter(const S: AnsiString): AnsiString;
 begin
-  Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeLeadingPathDelimiter(S);
+  Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeTrailingPathDelimiter(S);
 end;
 
 function ExpandFileNameCase(const FileName: AnsiString; out