Range check error in TDirectoryCache.FindNext / Windows / 3.3.1
Windows 10 / 64 bit ` FPC 3.3.1 compiled with -Criot
unit cfileutl
line ~ 460
```
function TDirectoryCache.FindNext(var Res:TCachedSearchRec):boolean;
var
entry: PCachedDirectoryEntry;
begin
if Res.EntryIndex<Res.CachedDir.DirectoryEntries.Count then
begin
if (tf_files_case_aware in source_info.flags) then
begin
entry:=Res.CachedDir.DirectoryEntries[Res.EntryIndex];
Res.Name:=entry^.RealName;
Res.Attr:=entry^.Attr;
```
Res.Attr is byte.
Entry^.Attr = 8240 (for the folder "bzip")
issue