Componentes Dinâmicos Em Form Dinâmico, ComponentCount = 0

function TfrmPadrao.CarregaListaOpcoes(Titulo : String; Opcoes: TStringList): String;
var
  i, Altura : Integer;
  frmLista : TForm;
  Grupo : TGroupBox;
  CheckItens : array of TCheckBox;
  Selecionadas : String;
begin
  SetLength(CheckItens, Opcoes.Count);

  // Criando o Form dinâmico
  //
  frmLista := TForm.Create(Self);
  frmLista.Position := poScreenCenter;
  frmLista.BorderStyle := bsSingle;
  frmLista.BorderIcons := [biSystemMenu];
  frmLista.Caption := ´Opções´;
  frmLista.Width := 300;

  // Criando o GroupBox
  //
  Grupo := TGroupBox.Create(Self);  // UM COMPONENTE
  Grupo.Parent := frmLista;
  Grupo.Top := 4;
  Grupo.Left := 8;
  Grupo.Width := 278;
  Grupo.Caption := ´ ´ + Titulo + ´ ´;
  Grupo.Font.Style := [fsBold];

  Altura := 18;

  for i := 0 to Opcoes.Count -1 do   // MAIS ALGUNS
  begin
    CheckItens[i] := TCheckBox.Create(Self);
    CheckItens[i].Parent := Grupo;
    CheckItens[i].Caption := Opcoes.Strings[i];
    CheckItens[i].Top := Altura;
    CheckItens[i].Left := 12;
    CheckItens[i].Width := 260;
    CheckItens[i].Font.Style := [fsBold];
    Altura := Altura + 25;
  end;

  Grupo.Height := Altura;
  frmLista.Height := Grupo.Height + 44;

  // Mostra o Form
  //
  frmLista.ShowModal;

  for i := 0 to frmLista.ComponentCount -1 do  // <<=== RETORNA ZERO, HEIN???
    if frmLista.Components[i] is TCheckBox then
      if (frmLista.Components[i] as TCheckBox).Checked = True then
        Selecionadas := Selecionadas + ´1´
      else
        Selecionadas := Selecionadas + ´0´;

  Result := Selecionadas;

  FreeAndNil(frmLista);
end;