[nosferatu177]

Hola a todos
mi problema es el siguiente, en el programa que estoy realizando requiero actualizar un campo de la tabla usuarios(pantalla "Login"), osea que: si despues de 3 intentos no esta correcta la contraseña desactivar el usuario(campo "estatus=0"); solo que no realiza actualizacion alguna; podría alguien ayudarme porfavor. utilizo los componentes zeos, mysql 5 y delphi 7; este es el codigo:

Código Delphi [-]
 
 else   begin     //si intentos =3
    showmessage('Demasiados intentos. El usuario ha sido bloqueado!');
    //checamos q exista el usuario para bloquearlo
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from usuarios where user='+QuotedStr(usuario.Text));
    query1.Open;
    if not(data1.DataSet.Eof and data1.DataSet.Bof) then     begin       query1.Close;       query1.SQL.Clear;                           //?????NO funciona!!!
      query1.SQL.Add('update usuarios set estatus='+QuotedStr('0'));
      query1.SQL.Add(' where user='+QuotedStr(usuario.Text));
      query1.ExecSQL;
    end;
    query1.Active:=false;
    Application.Terminate;
  end;

donde:
query1=TZQuery
data1=TDataSource