Gestion d'erreurs toute bête sujet

Bonjour,
Je coince sur un truc tout bête et j'y perds mon latin (mon Delphi plutôt :D).
Voila un bout de code tout bête qui ouvre un fichier avec gestion d'erreur (try .. except). Volontairement le fichier n'existe pas, il y a donc une erreur 103 qui m'envoi dans le except. Normalement le except ne propage plus l'erreur, or à la fin du except j'ai une message box "erreur E/S 103". Comment éviter cela? Soit c'est l'age, soit je ne comprends plus rien aux exceptions! 8O
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var Chem:String; F_Data:TextFile; S_Final:AnsiString; Erreur:Boolean; begin S_Final:='Test'; Chem:='C:\'; ForceDirectories(Chem); Erreur:=false; try AssignFile(F_Data,Chem+'Data.dat'); reset(F_Data); writeln(F_Data,S_Final); except Erreur:=true; end; CloseFile(F_Data);

---

Merci de vos lumières.