[[Lepe]]

Sugerencia:
Salir del bucle
while not Eof(ficherousuarios) do
cuando lo encuentre o bien por el Eof

¿Para que seguir recorriendo todo el archivo si ya lo ha encontrado?

Saludos.