Egy könyvtárat választhat ki az user a lenti példa segitségével, szebb, és jobb, mint a DirectoryListBox.

uses Filectrl

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir : String;
begin
  SelectDirectory('Select a directory','',Dir);
  ShowMessage(Dir);
end;

Megjegyzés:
Aszzem, a windows selectDirectory ablakát hívja meg a program, bár lusta voltam megnézni. 
Ha nem, akkor egy pontos utánzat a delphi részéről, de még mindig jobb, 
mint az az undorító kinézetü DirectoryListBox1.komponens.