若有10个LABEL控件，label1,label2......label10,想通过FOR 语句一次完成;

[ozeo]

如何实现:若有10个LABEL控件，label1,label2......label10,想通过FOR 语句一次完成;
var i:integer
.....

for i:=1 to 10 do
begin
label(i).caption:='xxxxx'
end;

[scripting]

var si:string;lx:Tlabel;

循环体内
si:=inttostr(i);
lx:=Tlabel(findcomponent('label'+si));
lx.caption:='???';

[chechy]

var i: Integer;
begin
for i := 0 to ControlCount - 1 do
if Controls[i] is TLabel then
TLabel(Controls[i]).Caption := 'Hello, world!';
end;