Получить имена компонентов с контрола

[Shouldercannon]

Хочу с другой формы получить имена всех CheckBox. Если обращаться к форме, то работает, если к TabSheet PageControl на форме, то не работает. Чего не хватает для корректной работы?

procedure TForm25.Button1Click(Sender: TObject);
  procedure CheckSelected(Form: TForm; List: TStrings);
  var
    I: Integer;
  begin
    for I := 0 to Form.ComponentCount - 1 do
    begin
      if Form.Components[I] is TCheckBox then
        List.Add((Form.Components[I] as TCheckBox).Name);
    end;
  end;
  procedure CheckSelected2(TabSheet: TTabSheet; List: TStrings);
  var
    I: Integer;
  begin
    for I := 0 to TabSheet.ComponentCount - 1 do
    begin
      if TabSheet.Components[I] is TCheckBox then
        if (TabSheet.Components[I] as TCheckBox).Parent = TabSheet then List.Add((TabSheet.Components[I] as TCheckBox).Name);
    end;
  end;
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  CheckSelected(Form26, SL); // Работает
  CheckSelected2(Form26.TabSheet1, SL); // Не работает
  ShowMessage(SL.Text);
  FreeAndNil(SL);
end;

[Аватар]

    for I := 0 to TabSheet.ControlCount - 1 do
      if TabSheet.Controls[I] is TCheckBox then List.Add((TabSheet.Controls[I] as TCheckBox).Name);

И Parent нечего проверять, он другой и не может быть. Как думаешь, как в Controls контролы попадают? А Components для owner

[Shouldercannon]

Сообщение от Аватар

    for I := 0 to TabSheet.ControlCount - 1 do
      if TabSheet.Controls[I] is TCheckBox then List.Add((TabSheet.Controls[I] as TCheckBox).Name);

как в Controls контролы попадают?

Сами в себя или тут опечатка?

[Аватар]

Не опечатка. В parent присваиваешь указатель на родителя - тут же указатель на контрол и появляется в Controls родителя. При изменении родителя правятся соответственно и их Controls. А в Components владельца помещается при создании объекта, см. параметh Owner. Когда мышкой пихаешь компонент на форму, то владельцем выступает форма, поэтому и не находил в Components закладки