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")