* Fix compilation

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