你可以动态创建Button控件，并为按钮设置事件。
有以下几点需要注意：
1、声明控件数组。
var arr_btn:array of TButton;
2、创建控件。
SetLength(arr_btn,10);
For i:=0 to 9do
begin
arr_btn := TButton.Create(Form1);
With arr_btndo
begin
Parent := Form1;
Top := ...;
Left := ...;
Width := ...;
Height := ...;
Caption := ...;
Visible := true;
OnClick := ButtonClickSimple;
Tag := i;
end;
end;
3、编写按钮的处理事件。
procedure TForm1.ButtonClickSimple(Sender: TObject);
var i:integer;
begin
i := TButton(sender).Tag;
Case i of
0: ......;
1: ......;
......
......
end;
end;
注意：这个过程需要在interface中声明。
由于时间关系，以上只是简单的原理说明，不过按照此法绝对可以达到你想要
的目的，如果有什么问题，欢迎来信探讨。
（四四方方：raindrop2000@263.net）
