一个button让另一个button功能不实现,该如何解决

一个button让另一个button功能不实现
 close;
 sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang<'+QuotedStr(Edit2.Text);

 open;
 if isEmpty then
 begin

  showmessage('可以卖出');

 end
 else
 showmessage('要求的数量大于库存量,不可卖出');
 

如果我想在button显示要求的数量大于库存量,不可卖出'后就让下一个button的功能不可用，怎么办
[解决办法]
 if isEmpty then
 begin
  button2.enanble := true;
  showmessage('可以卖出');
 end
 else begin
   showmessage('要求的数量大于库存量,不可卖出');
   button2.enable := false;
 end;