Problema con ficheros

[vhirginia]

hola compañeros,
usamos un fichero de registros para realizar la gestión de usuarios de un programa. Cuando damos de alta un usuario, se tiene que escribir sus datos, incluyendo el nombre de usuario y una contraseña, en el fichero. Entonces al inciar sesión en el programa, lo que hacemos comparar el nombre y contraseña introducidos con los que hay en el fichero y si coincide con alguno es que el usuario está registrado y por tanto puede utilizar el programa.
El problema es que nos da este error al intentar inciar la sesión con el nombre y contraseña de un usuario que ya está registrado en el fichero: "Proyect ... raised exception class ElnOutError with message 'Read Beyond End of File'. "

Él código para dar de alta es:

type
  tentrada = record
     nombre:string[15];
     apellidos:string[25];
     contrasena:string[20];
     nombre_usuario:string[20];
     end;

var
  ficherousuarios:file of tentrada;
     .
     .
     .

procedure TForm6.Button1Click(Sender: TObject);
var
 linea:string;
 nombre2,apellidos2,nombre_usuario2,
 contrasena2,rcontrasena2,contrasenaad:string;
 usuario:tentrada;
begin
 usuario.nombre:=#0;
 usuario.apellidos:=#0;
 usuario.contrasena:=#0;
 usuario.nombre_usuario:=#0;  
 nombre2:=Edit1.Text;
 apellidos2:=Edit2.Text;
 nombre_usuario2:=Edit3.Text;
 contrasena2:=Edit4.Text;
 rcontrasena2:=Edit5.Text;
 contrasenaad:=Edit6.Text;
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit4.Text:='';
 Edit5.Text:='';
 Edit6.Text:='';
 AssignFile(administrador,'administrador.txt');
 Reset(administrador);
 Readln(administrador,linea);
 if linea=contrasenaad then
 begin
   AssignFile(ficherousuarios,'ficherousuarios');
   if FileExists('ficherousuarios') then
    begin
     Reset(ficherousuarios);
    // totreg:=FileSize(ficherousuarios);
     Seek(ficherousuarios,FileSize(ficherousuarios));
    end
   else Rewrite(ficherousuarios);
   if contrasena2=rcontrasena2 then
    begin
       usuario.nombre:=nombre2;
       usuario.apellidos:=apellidos2;
       usuario.contrasena:=contrasena2;
       usuario.nombre_usuario:=nombre_usuario2;
       write(ficherousuarios,usuario);
       Form6.ModalResult:=mrOk;
       Form6.Visible:=False;
       Form1.Visible:=True;
       CloseFile(ficherousuarios);
    end
   else
    begin
     Form17.ShowModal;
     CloseFile(ficherousuarios);
    end;
  end
 else Form11.ShowModal;
end;

y el código con el que leemos para poder iniciar la sesión es el siguiente:

procedure TForm2.Button1Click(Sender: TObject);
var
 n2,c2,nombre2,contrasena2:string;
 ej:tentrada;
 encon,enconc,enconn:boolean;
begin
 encon:=false;
 enconc:=true;
 enconn:=false;
 nombre2:=Edit1.Text;
 contrasena2:=Edit2.Text;
 Edit1.Text:='';
 Edit2.Text:='';
 AssignFile(ficherousuarios,'ficherousuarios');
 if FileExists('ficherousuarios') then
    begin
     Reset(ficherousuarios); 
     while not Eof(ficherousuarios) do
      begin
       read(ficherousuarios,ej);//EL ERROR NOS DA JUSTO EN ESTE PUNTO 
       n2:=ej.nombre_usuario;
       c2:=ej.contrasena;
       if (n2=nombre2)then
        begin
         enconn:=true;
         if (c2<>contrasena2) then enconc:=false;
        end;
       if ((n2=nombre2) and (c2=contrasena2)) then
        encon:=true;
      end;
     if encon then
      begin
        Form3.Activar;
        Form2.ModalResult:=mrOK;
        Form2.Visible:=False;
      end
     else if ((enconn=true) and (enconc=false)) then
       Form13.ShowModal
      else Form14.ShowModal;
     Seek(ficherousuarios,1);
    end
 else Form12.ShowModal;
end;

nosotras no encontramos el error, espero que nos podais ayudar, gracias.