Создание вложенного меню по данным из TreeView

[Alter]

Нужно создать древовидное меню из пунктов меню(MainMenu, PopupMenu), повторяющее форму содержимого TreeView. Пока вот что сделано, выводит всё дерево, только в одинарный список. Вложенные пункты почему-то нестрятся, нужно подкоректировать. Не пойму что не так.
Программа демо:

[Showy]

Вы просто вкладывали итемы в один и то же итем.
Вот рабочая процедура:

procedure MenuFormTreeView(Menu: TMenuItem; Node: TTreeNode);
var
  Item: TMenuItem;
begin
  while Node <> nil do
  begin
    Item := TMenuItem.Create(Menu);
    Item.Caption := Node.Text;
    Menu.Add(Item);
    if Node.HasChildren then
      MenuFormTreeView(Item, Node.getFirstChild);
    Node := Node.getNextSibling;
  end;
end;