findcomponent找出的控件的color属性?

Question

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

Answer 1

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;

Answer 2

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

Answer 3

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