Не срабатывает проверка IOResult.

[Alex Cones]

Function SRV_FileExists(FileName : ShortString) : Boolean;
 Var
  TestFile : TextFile;
 Begin
  AssignFile(TestFile, FileName);
  {$I-}
  Reset(TestFile);
  If IOResult <> 0 Then Result := FALSE Else Result := TRUE;
  CloseFile(TestFile);
  {$I+}
 End;

Проверяю в первый раз:
If SRV_FileExists('File1.txt') Then - Выводит TRUE если он есть и False если его нет. Это замечательно...
А Вот когда проверяю второй файл начинаются проблемы
If SRV_FileExists('File2.txt') Then - Выводит True, если есть файл 1 и фалс если файла 1 нет ()
Имя разумеется правильно, вот:
Первый:

 If SRV_FileExists(LogDir + '\Log.txt') Then

Второй:

If SRV_FileExists(LogDir + '\Scripts.asc') Then

Как лечить сие чудо?

Тут, по моему, возможны две причины - либо не разассигнируется TestFile, либо не обнуляется InOutRes.

Поставил перед проверкой присваивание к переменной I:

  I := IOResult;
  If I <> 0 Then Result := FALSE Else Result := TRUE;

Итог:
Нет первого - I = 2 Нет второго I = 2
нет Первого - I = 2 Есть второй I = 103 О_о

[Скандербег]

Function SRV_FileExists(FileName : ShortString) : Boolean;
 Var
  TestFile : TextFile;
 Begin
  AssignFile(TestFile, FileName);
  {$I-}
  Reset(TestFile);
  {$I+}
  If IOResult = 0 Then begin
    Result := TRUE;
    CloseFile(TestFile);
  end Else Result := FALSE;
 End;

И все в порядке

[Alex Cones]

Ой спасибо!!! Долгих лет здравия!!!

Значит все дело было в том, что я на законных основаниях закрывал файл?

[Скандербег]

Да, именно.