label1,label2,...label15, 如何用for循环 i变量代替 label后面的数字

[Y.A.K.E]

for i := 1 to 15 do
begin
// 比如这样
label i .text := inttostr(i);
end

[Y.A.K.E]

找到了.
Tlabel(FindComponent ('label'+inttostr(i)) as Tlabel).Caption:=inttostr(i);;

[日立奔腾浪潮微软松下联想]

var
i: integer;
Labels: array of TLabel;
begin
Labels := [Label1, Label2, Label3];
for i := Low(Labels) to High(Labels) do
Labels[i].Caption := IntToStr(i);
end;