achso, mit der Funktion hab ichs nicht probiert. Abhilfe: Schreib das ganze nicht in eine Funktion sondern direkt an die Stelle wo du es prüfen willst.
oder wenns unbedingt eine funktion sein soll dann so:
Delphi-Quellcode:
function IsOpen(const f: file): boolean;
begin
Result := TFileRec(f).Mode <> fmClosed;
end;