1 vuosi sitten · 37f145707a
--- a/packages/vcl-compat/src/system.ioutils.pp
+++ b/packages/vcl-compat/src/system.ioutils.pp
@@ -2210,7 +2210,7 @@ var
 
				 begin
			
 
				   Result:=false;
			
 
				   CurSrcDir:=ExpandFileName(DirectoryName);
			
 
				-  CurSrcDir:=IncludTrailingPathDelimiter(CurSrcDir);
			
 
				+  CurSrcDir:=IncludeTrailingPathDelimiter(CurSrcDir);
			
 
				   if FindFirst(CurSrcDir+AllFilesMask,DeleteMask,FileInfo)=0 then
			
 
				     Try
			
 
				       repeat