Recherche:

Pour le corps de la procédure principal j'avais bien deviné ce qu'elle contennait. ;)

À vu de nez je dirais que l'erreur vient du fait que tu essaye de lire un fichier qui n'existe pas. :)
...

Merci d'utiliser la balise
pour amméliorer la lisibilité du message.

En fait le seul problème dans ta procédure est que la procédure Open prend un premier paramètre avec le mode in out (même si...