Директория -в код .

[littlecoder]

Здраствуйте.
И сразу к сути дела.
Нужно в коде Dir('Вот тут код пути для каталога ' , '',);, нужно через какойто компонент (пробовал через directorylistbox) добавить путь к каталогу. Например
Dir('С:\temp ' , '',).

[Terran]

Путь можно добавить так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
Dir: String;
Begin
Dir:=ShellTreeView1.Path;
End;