比如现在i=1,则可以改变Label1 的Caption;如果i变成2,就可以改变Label2的Caption,这个功能怎么实现啊,请大侠们帮帮忙啊!!!!!!!!!

控件数组

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to self.Componentcount -1 do
begin
if (components[i] is Tlabel) then
(components[i] as Tlabel).Caption:=inttostr(i+1);
end;
end;