Ayuda con aes_decrypt mysql

[rgstuamigo]

Si desde el principio hubieras puesto tú código creo que ya hubieramos solucionado el problema..

He modificado tu anterior código el procedure BConsultarClick

Código Delphi [-]
...
procedure TFModificaUsuarios.BConsultarClick(Sender: TObject);
var
    consulta, nombre, pasword: String;
    fusuarios: TFUsuarios;
    permiso1, permiso2, permiso3, permiso4, permiso5, permiso6, permiso7: integer;
    permiso8, permiso9, permiso10, permiso11, permiso12, permiso13: integer;
begin
    nombre:= lusuarios.Items[lusuarios.ItemIndex];
 with QModificaUsuario do
    begin
       SQL.Clear;//Limpio la SQL que tenía
       SQL.Add('Select u.usuario,AES_DECRYPT(u.clave,''TWH664'') as psw,');
       SQL.Add('u.desc_usuario,p.agregar_zonas, p.modificar_zonas, p.consultar_zonas,');
       SQL.Add('p.agregar_cobr, p.modificar_cobr, p.consultar_cobr,');
       SQL.Add('p.capturar_entregas, p.modificar_entregas, p.validar_entregas,');
       SQL.Add('p.agregar_usuarios, p.modificar_usuarios, p.consultar_usuarios,p.consultar_entregas');
       SQL.Add('From usuarios u Inner Join permisos p on u.usuario = p.usuario');
       SQL.Add('Where u.usuario=:MI_PARAMETRO_1;');//Estoy creando un parametro
       ParamByName('MI_PARAMETRO_1').AsString:=nombre;//asigno un valor al parámetro  MI_PARAMETRO_1
      //QmodificaUsuario.Active:= true; <-- Esta instrución está por demás hace lo mismo que la instruccion de abajo
       qmodificausuario.Open;
     end;
showmessage(qmodificausuario.fieldvalues['psw']);//esta linea la utilizo para ver el valor de clave
pasword:= qmodificausuario.FieldByName('psw').AsString;
...
...
...

Dada la modificacion algunas variables estan por demás...