работа с TShellListView и TShellTreeView, переход по папкам Опции

[kr3v3tkus]

подскажите плз как осуществляется работа с TShellListView и TShellTreeView, конкретнее - необходимо указать директорию, у которой в нутри есть папки, для каждой из них сделать проверку SelectedFolder.SubFolders, если подпапок нет - совершить какое-либо действие, если же есть - то уйти вниз ещё на уровень и снова совершить предыдущее действие. Тоесть например:

в папке Black Lagoon ещё 2 папки в каждой из которых уже нет подпапок
а в папке !new1 есть ещё подпапки, в которых тоже могут быть подпапки
Подскажите или киньте ссылку на толковый мануал плиз

[kr3v3tkus]

хмм ладно - а если у меня есть такой код

Код

  if (Lw.Selected.SubItems[5] = 'dir') then begin
    Edit.Text := Edit.Text + Lw.Selected.Caption + '\';
    AddFile(Edit.Text + '*.*', faAnyFile);
  end;

AddFile расшаривает все файлы в директории указанной в эдите
Как модифицировать эту процедуру чтобы она делала обход всех папок?
я пробовал делать так

Код

  for i := 0 to Lw.Items.Count do begin
    lw.Selected := lw.Items.Item[i];

но так не хочет...