用delphi 编写的串口调试精灵

不知为什么下面的程序初始化是没有执行的？
procedure TForm1.FormCreate(sender:TObject);
  begin
  ComboBox1.ItemIndex :=0;
  Shape1.brush.Color :=clwhite;
  shape2.Brush.Color :=clwhite;
  shape3.Brush.Color :=clwhite;
  shape4.Brush.Color :=clwhite;
  panel2.Enabled:=true;
  end;

可以执行，没有错，你想要什么颜色

后面无意看到一个东西，把问题解决了！原来是我没有激活。