* Fix DeleteDirectory

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