error xsqlda index out of range en ventana login ayuda !!!!!!

[manueltp]

hola que tal amigos aki de nuevo ....
con una duda mas .....
me sale el error de "xsqlda index out of range".....

les paso el codigo para que me chequen de favor haber que hago mal::

Código Delphi [-]
procedure TFLogin.BtnAceptarClick(Sender: TObject);
begin
   LoginOK := False;
   QryEntrar.Params.ParamByName('nom').AsString:= EUsuario.Text;
   QryEntrar.Active:= True;
   EUsuario.Text:= QryEntrar.Fields[0].AsString;
   If QryEntrar.RecordCount < 1 then
      Begin
         Cuenta := Cuenta + 1;
         MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
         EUsuario.Text := '';
         EClave.Text := '';
         QryEntrar.Active := False;
         If Cuenta = 3 then Close;
      end
   else
        If QryEntrarCLAVEU.AsString = EClave.Text then
           Begin
              LoginOk := True;
              Usuario := QryEntrarNOMBREU.AsString;
              QryEntrar.Active := False;
              Close;
           end
        else
            Begin
               Cuenta := Cuenta + 1;
               MessageDlg('Clave Inválida',mtError, [mbOK], 0);
               EClave.Text := '';
               QryEntrar.Active := False;
               If Cuenta = 3 then Close;
            end
end;

tengo un TIBQuery con un parametro..

se los agradeceria demasiado ... me interesa demasiado para el sistema que estoy realizando...