如何用整数调用控件(100分)

在Form1中有120个按钮Button1..Button120
其中一按钮Button5对应代码如下
procedure TForm1.Button5Click(Sender: TObject);
begin
Button5.caption='Selected';
Button5.Font.Color:=clred ;
end;
其他按钮代码形式相同
比如Button7
procedure TForm1.Button7Click(Sender: TObject);
begin
Button7.caption='Selected';
Button7.Font.Color:=clred ;
end;
那对120个按钮,要写120段相同的代码么?
可不可以有这样一个过程
procedure changebutton(index:integer);
begin
使button[index]发生相应的变化?
end;

你可以将120个Button共用一个Click事件，Click代码如下
procedure TForm1.Button1Click(Sender: TObject);
begin
TButton(Sender).caption='Selected';
TButton(Sender).Font.Color:=clred ;
end;

接受答案了.