fmClose ist aber nicht 0
Uppsi. Wer rechnet denn mit sowas?
fmClose und Co. sind "komische" Magicnumbers. (als Enum, mit fmClose=0 wären die praktischer gewesen)
Muss von mir aus kein Enum sein, aber der Ordinalwert 0 wäre vielleicht schon günstig gewesen. Naja gut, dann halt
if (TTextRec(FFile).Mode <> 0) and (TTextRec(FFile).Mode <> fmClosed) then
.