[jehemo]

aqui esta todo el codidgo de mi formulario haber si me pueden ayudar la parte en rojo es donde tengo el problema

Código Delphi [-]
unit UModificaUsuarios;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBCtrls, ADODB;

type
  TFModificaUsuarios = class(TForm)
    QUsuarios: TADOQuery;
    QUsuariosusuario: TStringField;
    BModificar: TButton;
    BConsultar: TButton;
    BSalir: TButton;
    BBorrar: TButton;
    EUsuario: TEdit;
    LUsuarios: TListBox;
    Label1: TLabel;
    QModificaUsuario: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure EUsuarioChange(Sender: TObject);
    procedure LUsuariosClick(Sender: TObject);
    procedure BModificarClick(Sender: TObject);
    procedure BConsultarClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BSalirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FModificaUsuarios: TFModificaUsuarios;

implementation

uses Uusuarios;
{$R *.dfm}

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];
    consulta:= 'select u.usuario,(aes_decrypt(AES_ENCRYPT(u.clave,';
    consulta:= consulta + '''' + 'TWH664' + '''' + '), ' + '''';
    consulta:= consulta + 'TWH664' + '''' + ')) as psw, u.desc_usuario,';
    consulta:= consulta + 'p.agregar_zonas, p.modificar_zonas, p.consultar_zonas,';
    consulta:= consulta + 'p.agregar_cobr, p.modificar_cobr, p.consultar_cobr,';
    consulta:= consulta + 'p.capturar_entregas, p.modificar_entregas, p.validar_entregas,';
    consulta:= consulta + 'p.agregar_usuarios, p.modificar_usuarios, p.consultar_usuarios,';
    consulta:= consulta + 'p.consultar_entregas from usuarios as u ';
    consulta:= consulta + 'inner join permisos as p on u.usuario = p.usuario ';
    consulta:= consulta +'where u.usuario =' + '''' + nombre +'''';
    qmodificausuario.SQL.Clear;
    QModificaUsuario.SQL.Text:= consulta;
    QmodificaUsuario.Active:= true;
    qmodificausuario.Open;
    showmessage(qmodificausuario.fieldvalues['psw']); //esta linea la utilizo para ver el valor de clave
    pasword:= qmodificausuario.FieldByName('psw').AsString;
    permiso1:= StrtoInt(QModificaUsuario.FieldByName('agregar_zonas').AsString);
    permiso2:= StrtoInt(QModificaUsuario.FieldByName('modificar_zonas').AsString);
    permiso3:= StrtoInt(QModificaUsuario.FieldByName('consultar_zonas').AsString);
    permiso4:= StrtoInt(QModificaUsuario.FieldByName('agregar_cobr').AsString);
    permiso5:= StrtoInt(QModificaUsuario.FieldByName('modificar_cobr').AsString);
    permiso6:= StrtoInt(QModificaUsuario.FieldByName('consultar_cobr').AsString);
    permiso7:= StrtoInt(QModificaUsuario.FieldByName('capturar_entregas').AsString);
    permiso8:= StrtoInt(QModificaUsuario.FieldByName('modificar_entregas').AsString);
    permiso9:= StrtoInt(QModificaUsuario.FieldByName('validar_entregas').AsString);
    permiso10:= StrtoInt(QModificaUsuario.FieldByName('agregar_usuarios').AsString);
    permiso11:= StrtoInt(QModificaUsuario.FieldByName('modificar_usuarios').AsString);
    permiso12:= StrtoInt(QModificaUsuario.FieldByName('consultar_usuarios').AsString);
    permiso13:= StrtoInt(QModificaUsuario.FieldByName('consultar_entregas').AsString);
    fusuarios:= tfusuarios.Create(Application);
    fusuarios.BCancelar.SetFocus;
    fusuarios.ENombre.Text:= lusuarios.Items[lusuarios.ItemIndex];
    fusuarios.EPassword.Text:= QModificaUsuario.FieldByName('psw').AsString;
    fusuarios.ERepitePassword.Text:= QModificaUsuario.FieldByName('psw').AsString;
    fusuarios.EDescripcion.Text:= QModificaUsuario.FieldByName('desc_usuario').AsString;
    if permiso1 = 1 then
        fusuarios.CheckAgregaZona.Checked:= true
    else
      fusuarios.CheckAgregaZona.Checked:= false;
    if permiso2 = 1 then
      fusuarios.CheckModificaZona.Checked:= true
    else
      fusuarios.CheckModificaZona.Checked:= false;
    if permiso3 = 1 then
      fusuarios.CheckConsultaZona.Checked:= true
    else
      fusuarios.CheckConsultaZona.Checked:= false;
    if permiso4 = 1 then
      fusuarios.CheckAgregaCobrador.Checked:= true
    else
      fusuarios.CheckAgregaCobrador.Checked:= false;
    if permiso5 = 1 then
      fusuarios.CheckModificaCobrador.Checked:= true
    else
      fusuarios.CheckModificaCobrador.Checked:= false;
    if permiso6 = 1 then
      fusuarios.CheckConsultaCobrador.Checked:= true
    else
      fusuarios.CheckConsultaCobrador.Checked:= false;
    if permiso7 = 1 then
      fusuarios.CheckCapturaEntrega.Checked:= true
    else
      fusuarios.CheckCapturaEntrega.Checked:= false;
    if permiso8 = 1 then
      fusuarios.CheckModificaEntrega.Checked:= true
    else
      fusuarios.CheckModificaEntrega.Checked:= false;
    if permiso9 =1 then
      fusuarios.CheckValidaEntrega.Checked:= true
    else
      fusuarios.CheckValidaEntrega.Checked:= false;
    if permiso10=1 then
      fusuarios.CheckAgregaUsuario.Checked:= true
    else
      fusuarios.CheckAgregaUsuario.Checked:= false;
    if permiso11= 1 then
      fusuarios.CheckModificaUsuario.Checked:= true
    else
      fusuarios.CheckModificaUsuario.Checked:= false;
    if permiso12 = 1 then
      fusuarios.CheckConsultarUsuario.Checked:= true
    else
      fusuarios.CheckConsultarUsuario.Checked:= false;
    if permiso13=1 then
      fusuarios.CheckConsultarEntrega.Checked:= true
    else
      fusuarios.CheckConsultarEntrega.Checked:= false;

    fusuarios.ENombre.Enabled:= false;
    fusuarios.EPassword.Enabled:= false;
    fusuarios.ERepitePassword.Enabled:= false;
    fusuarios.EDescripcion.Enabled:= false;
    fusuarios.CheckAgregaZona.Enabled:= false;
    fusuarios.CheckModificaZona.Enabled:= false;
    fusuarios.CheckConsultaZona.Enabled:= false;
    fusuarios.CheckAgregaCobrador.Enabled:= false;
    fusuarios.CheckModificaCobrador.Enabled:= false;
    fusuarios.CheckConsultaCobrador.Enabled:= false;
    fusuarios.CheckCapturaEntrega.Enabled:= false;
    fusuarios.CheckModificaEntrega.Enabled:= false;
    fusuarios.CheckValidaEntrega.Enabled:= false;
    fusuarios.CheckConsultarEntrega.Enabled:= false;
    fusuarios.CheckAgregaUsuario.Enabled:=false;
    fusuarios.CheckModificaUsuario.Enabled:= false;
    fusuarios.CheckConsultarUsuario.Enabled:= false;
    fusuarios.BAceptar.Enabled:= false;
    fusuarios.BAceptar.Visible:= false;
    fusuarios.Show();
end;

procedure TFModificaUsuarios.BModificarClick(Sender: TObject);
var
    Fusuarios: TFusuarios;
begin
      fusuarios:= tfusuarios.Create(Application);
      fusuarios.EPassword.SetFocus;
      fusuarios.ENombre.Enabled:= false;
      Fusuarios.ENombre.Text:= lusuarios.Items[lusuarios.ItemIndex];
      fusuarios.Show();
end;

procedure TFModificaUsuarios.BSalirClick(Sender: TObject);
begin
      close();
end;

procedure TFModificaUsuarios.EUsuarioChange(Sender: TObject);
var
    texto, item: String;
    i: integer;
begin // selecciona el item mas proximo al que se escribe
    texto:= AnsiUpperCase(EUsuario.Text);
    for i := 0 to lusuarios.Count - 1 do
    begin
          item:= AnsiUpperCase(Lusuarios.Items[i]);
          if Pos(texto, item) = 1 then
          begin
              lusuarios.ItemIndex:= i;
              Bmodificar.Enabled:= true;
              Bborrar.Enabled:= true;
              Bconsultar.Enabled:= true;
          end;
    end;
    if eusuario.text = '' then
    begin
        lusuarios.ItemIndex:= -1;
        bmodificar.Enabled:= false;
        bconsultar.Enabled:= false;
        bborrar.Enabled:= false;
    end;

end;

procedure TFModificaUsuarios.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    release();
end;

procedure TFModificaUsuarios.FormCreate(Sender: TObject);
begin
      qusuarios.Active:= true;
      qusuarios.Open;
      lusuarios.Items.Clear;      //se limpia el list box
      qusuarios.First;            // se va al primer registro
      while not qusuarios.Eof do  // se añaden los campos al list box
      begin
            lusuarios.Items.Add(AnsiUpperCase(qusuarios.FieldByName('usuario').AsString));
            qusuarios.Next;
      end;
      qusuarios.Close;
      qusuarios.Active:= false;
end;

procedure TFModificaUsuarios.LUsuariosClick(Sender: TObject);
begin
      if lusuarios.ItemIndex <> -1 then
      begin
          Bmodificar.Enabled:= true;
          Bborrar.Enabled:= true;
          Bconsultar.Enabled:= true;
          EUsuario.Text:= lusuarios.Items[lusuarios.ItemIndex]; // se agrega el item al edit
       end;

end;

end.