1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

        //Open and display Log
        Filemode := fmShareDenyNone;
        {$I-}
        AssignFile(f, TempStr);
        Reset(f);
        {$I+}
        TempErr := IOResult;
        if TempErr <> 0 then begin
          WriteLn('  viewlog: I/O error ', TempErr, ': Logfile does not exist');
          continue;
          end;
        {$I-}

... Natürlich wird die Datei am Ende auch wieder geschlossen ;)