Ordner, Unterordner und Dateien darstellen?

[Paul0703]

Es klappt irgendwie nicht, der ShellTreeView einen anderen Pfad zuzuweisen!
Ich möchte, dass in der ShellTreeView alle Unterordner und Dateien aus D:\Music angezeigt werden.
Aber wenn ich auf den Button klicke, zeigt er weiterhin nur den kompletten Computer an und nicht nur diesen Ordner.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellTreeView1.Path := 'D:\Music';
end;

Nochmal danke für deine Hilfe!