delphi控件数组

diyiwen1997

delphi中怎么做控件数组

我现在用(Controls/Components[i] as TLabel).caption :='....';这种方式，在dfm文件中找控件顺序

但我现在有8个按键，这八个按键按下后要执行相差不多的代码
例如：
        Button1按下后执行：a[1]:=1;
                                          Image1.visible:=false;
                                          Image9.visible:=true;
        Button2按下后执行：a[2]:=1;
                                          Image2.visible:=false;
                                          Image10.visible:=true;
                                          .
                                          .
                                          .
                                          .
        Button8按下后执行：a[8]:=1;
                                          Image8.visible:=false;
                                          Image16.visible:=true;

每改一次都要改八遍，太麻烦了，所以想问问delphi怎么做控件数组，把八个按键的代码都写到一块儿。