findcomponent找出的控件的color属性?

[bluespy]

想点击一下button把屏幕上用panel画的一系列小格子的color前一个继承下一个的,但这样做好象color属性无法用?
for i:= 1 to 44 do
begin
findcomponent('panel'+inttostr(i)).color:=findcomponent('panel'+inttostr(i+1)).color;
end;

[windindance]

var
panel1,panel2 :TPanel;
for i:= 1 to 44 do
begin
panel1 := findcomponent('panel'+inttostr(i)) as Tpanel;
panel2 := findcomponent('panel'+inttostr(i+1)) as Tpanel;
if (panel1<>NIL) AND (panel2 <>NIL) then
panel1.color:=panel2.color;
end;

[梅青松]

for i:= 1 to 44 do
begin
Tpanel(findcomponent('panel'+inttostr(i))).color:=Tpanel(findcomponent('panel'+inttostr(i+1))).color;
end;

[wycg_cnh20]

for i:= 1 to 44 do
begin
Tpanel(findcomponent('panel'+inttostr(i))).color:=Tpanel(findcomponent
( 'panel'+inttostr(i+1))).color;
end;

[wycg_cnh20]

要用到强制类型转化