if button1.Caption = 'Button1' and button1.Enabled =true thenbutton1.Enabled :=false;为什么不行呀/
谢谢楼上两位,已搞定