Cette fonction indique si la fin d'une ligne de fichier texte est atteinte.
Function SeekEoLn[(Var Fich:Text)]:Boolean;