Delphi 控件的连续法(20分)

各位高手

我在窗体上 添加了 10 个 label 控件

我想给这 10 个控件载运行期 分别设置 为 红色
就用

for i：=1 to 10 do
label.color:=clred
但行不通 ，只有一个个 的赋值。

请问 我用什么办法 给 这些控件连续赋值 ？？？？（不能使用自创类型组件，
必须是添加在窗体上的组件）

谢谢！！！！

procedure TForm1.Button1Click(Sender: TObject);
var
icount:integer;
begin
for icount:=0 to form1.ComponentCount-1 do
begin

if form1.Components[icount] is tlabel then
( form1.Components[icount]as tlabel).color:=clred;
end;
end;

多人接受答案了。