我得控件都放在gb_head(TGroupBox)里面
怎么gb_head.ComponentCount=0 ?var
  i : integer;
begin
  showmessage(IntTostr(gb_head.ComponentCount));
  for i:=0 to gb_head.ComponentCount-1 do
  begin
    if (gb_head.Components[i].Name = 'TEdit') then
      (gb_head.Components[i] as TEdit).Text := '';
    if (gb_head.Components[i].Name = 'TComboBox') then
      (gb_head.Components[i] as TComboBox).ItemIndex := 0;
    if (gb_head.Components[i].Name = 'TRadioGroup') then
      (gb_head.Components[i] as TRadioGroup).ItemIndex := 0;
  end;