* Fix copy and paste error. Fixes issue #40863

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

@@ -789,12 +789,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