TDirectoryOutline automatisch aufklappen

[smart]

Wie kann man ein TDirectoryOutline automatisch aufklappen lassen. Mit DirectoryOutline1.Directory := 'C:\Test\' klappt sie leider nicht auf. Hat Einer von Euch vieleicht einen Tip.

[Aike]

Spät aber doch:

Delphi-Quellcode:

DirectoryOutline.SelectedItem:=1;
DirectoryOutline.Items[1].Expand;