一个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;