[Aleks99]

Поделись секретом. Я делаю так.

Код:

var
a:String;
 begin
  if SelectDirectory('Выберите каталог','d:\',a ) then
    Begin
        FileListBox1.Directory := a;
    End
  else
    ShowMessage('Выбор был отменен');
Edit1.text:=a;
end;

Во время выбора папки, нет возможнасти перейти к другому диску или вверх по каталогу, а очень нужно.