List index out of bounds(6) al desencriptar

[nefy]

Pues ya cheque y la excepcion me la genera nada menos q en un locate:

   if (not TUsuarios.Locate('Nom_Usuario',nombre,[])) then
    begin
--
--
--
  end;

Ahora si que me quede sorprendido con esto, la verdad no veo la razon para q me envie dicho error aun y reintero q los envio con todos los usuarios excepto con "Administrador". Cual sera el bug?.