Delphi XE4 Tpanel не меняет цвет

Question

В моей программе (шахматы) мне нужно создать много панелей с определенным цветом фона (черный или белый). Тпанели созданы, но, несмотря на настройку цвета, они остаются бесцветными.

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;