Problème de test "IOResult" suite à ouverture fichier (Delphi7)

Bonjour,

Suite à l'ouverture d'un fichier dans la séquence de code ci-dessous, le chemin du fichier étant erroné, "IOResult" est positionné à 3, ce qui est normal.
Mais lors du test "if (IOResult <> 0) then" au lieu de passer dans le traitement pour signaler l'anomalie,.le traitement continue comme si IOResult était à zéro et va se planter sur l'instruction "while (not EOF (FicIn)) do".

Quelqu'un pourrait-il expliquer pourquoi ?

Merci d'avance pour votre aide.

{$I-}
AssignFile (FicIn, CheminEtNomFichier);
FileMode := 0; //Accès en lecture seule
Reset (FicIn);  //Ouverture en lecture seule
{$I+}
if (IOResult <> 0) then
  begin  //Signaler anomalie
    ...
  end
else
  begin  //Continuer le traitement
    while (not EOF (FicIn)) do
      begin  //Enregs à lire
        ...