Prüfen ob eine Dateivariable mit Assign zugewiesen ist

[WM_CLOSE]

So vielleicht?

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile(...);
  if f<>nil then
  begin
    try
      //machwas
    finally
      CloseFile(...);
    end;
  end;
end;