with qryConsulta do
begin
Active := False;
SQL.Clear;
SQL.Add('SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS');
SQL.Add('WHERE CLAVE = :CLAV AND USUARIO = :USUA');
Parameters.ParamByName('CLAV').Value := edtClave.Text;
Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
Active := True;
end;