Cette fonction indique si la fin du fichier texte est atteinte.
Function SeekEof[(var F: Text)]:Boolean;