Créer une procédure avec un argument de type TextFile

Bonjour,

je souhaite créer une procédure dont l'unique argument serait de type TextFile, de façon à pouvoir la lancer après avoir choisit mon fichier dans une opendialog. Seulement, j'obtient le message d'erreur suivant lors de la compilation :

Type de fichier non autorisé ici

(la ligne indique que l'erreur se situe au niveau de la déclaration). Pourtant la syntaxe semble correcte :

procedure StockageTableau(Fichier: TextFile);

Voilà, est ce que quelqu'un pourrait m'aider.

Merci d'avance.

essaye

Code:

---

procedure StockageTableau(var Fichier: TextFile);

---