[juanlaplata]

esto es lo que yo hago, en el evento OnChange del ShellTreeView, y no depende del boton

Código Delphi [-]
procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin // lista1 = TFileListBox
Lista1.Directory:= ShellTreeView1.Path;
end;