ShellTreeView selection in Schleife

[SaFu]

Ich versuche gerade alle Ordner in einer ShellTreeView nacheinander zu selektieren aber irgendwie funzt es nicht.
Für einen Tipp wäre ich dankbar.

habe es bis jetzt so versucht geht aber irgendwie nicht

Delphi-Quellcode:

For I := 0 To ShellTreeView2.Items.Count -1 do
 begin
  ShellTreeView2.Selection[i];
 end

Gruß sascha