这里要用到一个函数findComponent，我写个例子你：

var

myButton : TBitbtn;

i : integer;

begin

randomize;

i := random(5) + 1;

myButton := findComponent('BitBtn' + inttostr(i)) as TBitBtn;

if myButton <> nil then

myButton.Click;

end;