Динамическое создание CategoryPanelGroup с несколькими вкладками в Delphi 2010

[Randomize]

Никак не получается создать динамически на форме CategoryPanelGroup с вкладкой в нем, то есть CategoryPanelGroup создается НО вкладка получается без шапки.

procedure TForm2.Button1Click(Sender: TObject);
var
  CategoryPanelGroup1: TCategoryPanelGroup;
  CategoryPanel2: TCategoryPanel;
begin
  CategoryPanelGroup1 := TCategoryPanelGroup.Create(Form2); // Задать владельца
  CategoryPanelGroup1.Parent := Form2; // Задать родителя
  CategoryPanelGroup1.Left := 0;
  CategoryPanelGroup1.Top := 0;
  CategoryPanelGroup1.Ctl3D := true;
  CategoryPanelGroup1.Top := 0;
  CategoryPanelGroup1.VertScrollBar.Tracking := true;
  CategoryPanelGroup1.BevelInner := bvNone;
  CategoryPanelGroup1.HeaderStyle := hsGradient;
  CategoryPanelGroup1.HeaderAlignment := taLeftJustify;
  CategoryPanelGroup1.HeaderHeight := 24;
  CategoryPanelGroup1.BiDiMode := bdRightToLeftReadingOnly;
  CategoryPanelGroup1.DragCursor := crHandPoint;
  CategoryPanelGroup1.Color := clMaroon;
  CategoryPanelGroup1.GradientBaseColor := clMaroon;
  // CategoryPanelGroup1.GradientDirection <<< незнаю как задать
  CategoryPanelGroup1.Padding.Left := 0;
  CategoryPanelGroup1.HeaderFont.Charset := DEFAULT_CHARSET;
  CategoryPanelGroup1.HeaderFont.Color := clWindowText;
  CategoryPanelGroup1.HeaderFont.Height := -11;
  CategoryPanelGroup1.HeaderFont.Name := 'Tahoma';
  CategoryPanelGroup1.HeaderFont.Style := [];
  CategoryPanelGroup1.ParentBiDiMode := False;
  CategoryPanelGroup1.TabOrder := 0;
  { Создаю вкладку }
  CategoryPanel2 := TCategoryPanel.Create(CategoryPanelGroup1);// Задать владельца
  CategoryPanel2.Parent := CategoryPanelGroup1; // Задать родителя
  CategoryPanel2.Collapsed := False;
  CategoryPanel2.TabOrder := 0;
  //CategoryPanel2.Caption := 'Первая вкладка'; // компилиться но выдает ошибку при  нажатии на кнопку
end;

[qwertEHOK]

сам наткнулся на такое

что бы исправить нужно еще у панельки динамически назначать

CategoryPanel2.PanelGroup:=Category PanelGroup1;

тогда у панельки есть заголовок и можно сделать

CategoryPanel2.Collapsed := False;