如何用控件数组(50分)

一窗体上有 BUTT1，BUTT2。。。。。。BUTT9等按钮。
请问如何用一条语句判断点击了哪个按钮。

1.设置Button1到Button3的Tag属性为1..3
2.写Button1的Click事件，如以下：
case TButton(Sender).Tag of
1: ShowMessage('Click Button1');
2: ShowMessage('Click Button2');
3: ShowMessage('Click Button3');
end;
3.设置其他的Button2及Button3的Click事件为Button1的Click事件即可。

可以把 butt1.tag 赋值为 1,butt2.tag 赋值为 2。。。。。butt9.tag 赋值为9,
所有这些按钮的click事件指向同一方法，在该方法使用tag区分不同的按钮，如

procedure TForm1.ButtClick(Sender: TObject);
var
abutt: TButton;
begin
//如果不是按钮点击则退出
if not(Sender is TButton) then exit;
abutt := TButton(Sender);
//根据不同按钮响应事件
case abutt.tag of
1: dosomething1(); //第1个按钮
2: dosomething2(); //第2个按钮
.....
9: dosomething9(); //第9个按钮
end;
end;

case sender of
button1:dosomething1;
button2:dosomething2;
......n:dosomethingn;
end;