"Лишний" элемент при получении списка вложенных компонентов?

[rareMax]

Нужно получить список вложенных компонентов. Для теста набросал 3 компонента в TGroupBox. 

Далее вывожу список в TMemo, но почему то  присутствует один лишний элемент. 

Сам вывод идет так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to GroupBox1.ControlsCount - 1 do
    Memo1.Lines.Add(i.ToString + ' - ' + GroupBox1.Controls.Items[i].Name)
end;

Собственно интересно, почему в 0-позиции приходит пустое имя?

Изменено 22 сентября, 2015 пользователем Сысоев Максим

[Brovin Yaroslav]

0-элемент - это стиль

[d7d1cd]

У меня есть похожий вопрос. На форме размещен TLayout, а на нем кнопка (у кнопки родитель - TLayout). У кнопки HitTest = true. При обработке события OnClick TLayout выполняется такой код:

void __fastcall TForm1::Layout1Click(TObject *Sender)
{
 int CompCount = static_cast<TLayout*>(Sender)->ComponentCount;
}

После выполнения кода значение переменной CompCount равно нулю. После экспериментов я выяснил, что переменная ComponentCount у всех контролов равна нулю. Только у формы она равна количеству расположенных на ней контролов. Скажите, почему так происходит?

[Равиль Зарипов (ZuBy)]

скажем,

создание компонентов в Disign Time происходит так

Comp := TSomeComponent.Create(self);

а если создать в Run Time, то увидите правильный результат

Comp := TSomeComponent.Create(Layout1);