Не, не каша. Это ты просто не до конца проверяешь запись на валидность
На корвете этот диск нормально видится.
Делай как-то так
Код:
    if (Catalog[I].Re1 = $00) And (Catalog[I].Exn And $1F = $00) And ((Catalog[I].User < $20) or (Catalog[I].User = $E5)) Then