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