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; 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;'); ParamByName('MI_PARAMETRO_1').AsString:=nombre; qmodificausuario.Open;
end;
showmessage(qmodificausuario.fieldvalues['psw']);pasword:= qmodificausuario.FieldByName('psw').AsString;
...
...
...
Dada la modificacion algunas variables estan por demás...