[lmikle]

Типа так:

Код:

dlgBrowse.Directory := InitDir;
If dlgBrowse.Execute Then
  ShowMessage('User select ' + dlgBrowse.Directory + ' folder');