德尔福XE4 Tpanel不会改变颜色

Question

在我的程序（Chess）中，我需要生成许多具有特定背景颜色（黑色或白色）的Tpanel。 Tpanels已经创建，但是，尽管设置了颜色，它们仍然是无色的。

for i := 1 to 8 do
  for j := 1 to 8 do
  begin
    CellArray[i,j]:= TPanel.Create(Chess);
    CellArray[i,j].Parent := Chess;
    CellArray[i,j].Left := 20+(i-1)*70;
    CellArray[i,j].Top := 20+(j-1)*70;
    CellArray[i,j].Width := 70;
    CellArray[i,j].Height := 70;
    CellArray[i,j].Tag := i*10+j;
    if odd(i+j) then 
      CellArray[i,j].Color := clblack
    else 
      CellArray[i,j].Color := clwhite;
  end;