一个删除动态生成控件的问题

Question

B:array [1..10] of TControl;
for i:= 1 to 10  do
  begin
     B[i]:= TCombobox.Create(self);
     B[i].Parent := Form1.Panel1 ;
     B[i].Left :=100+i*25 ;
     B[i].Top := 100+i*25;
     B[i].Height := 25;
     B[i].Width := 75 ;
end;  //到这里控件正常生成for i:= 0 to Panel1.ControlCount-1 do
  begin
       Panel1.Controls[i].Destroy;
  end;  //这里删除的时候报错，请问怎么解决？多谢

Answer 1

B:array [1..10] of TControl;//最好改成TCombobox
for i:=Panel1.ControlCount-1 downto 0 do
   Panel1.Controls[i].free;

Answer 2

(Panel1.Controls[i] as TCombobox).free;