While ShellBrowser.Next do begin
  if not ShellBrowser.IsFolder then continue;
  NewNode := TreeView.Items.AddChild(CurrentNode, ShellBrowser.GetShellObjectName);
  NewNode.ImageIndex := ShellBrowser.IconNumber;
  NewNode.SelectedIndex := ShellBrowser.SelectedIconNumber;
  NewNode.HasChildren := ShellBrowser.HasSubFolders;
end;