[[egostar]]

Yo haría esto:

Código Delphi [-]
var
  Form1: TForm1;
  Arreglo: Array [0..7] of Integer = (1,1,1,1,0,0,0,0);


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 7 downto 0 do begin
      with TShape(components[i]).Brush do begin
         case Arreglo[i] of
             0: color := clRed;
             1: color := clGreen;
         end;
      end;
  end;
end;

Salud OS