Drzewo w dół

Szukam komponentu, który umożliwia w ładny i animowany sposób tworzenie drzewa w dół (czyli nie w bok jak zwykłe drzewo).

Robiłem to na JvXPContainer1 oraz TJvXPBar. Wygląda ładnie ale ma tylko tylko 1 poziom główny i jeden poziom podrzędny, A ja potrzebuję głębszego drzewa.

Robię to tak:

for i := 0 to 5 do
  begin
    with TJvXPBar.Create(Self) do
    begin
      Parent := JvXPContainer1;
      Align := alTop;
      Caption := 'Test' + IntToStr( i);
      Tag := i;
      ShowItemFrame:=True;
      RoundedItemFrame:=2;
      Grouped:=True;
    end;
  end;

  for i := 0 to 5 do
  begin
    for j := 0 to Random( 6) do
    begin
      if (JvXPContainer1.Controls[i] is TJvXPBar) then
      begin
        with (JvXPContainer1.Controls[i] as TJvXPBar) do
        begin
          Caption := Caption + ', ' + IntToStr(j);
          Items.Add;
          Items[j].Tag := j;
          Items[j].OnClick := myOnClick;
        end;
      end;
    end;

  end;

Może ktoś zaproponuje inny sposób lub komponent ?