[[xEsk]]

Una versión sencilla sin instalar componentes adicionales es usando: la función SelectDirectory que se encuentra en la unit FileCtrl del Delphi.

Aqui un ejemplo de uso:

Código Delphi [-]
var
  sDirectory : String;

begin
  if SelectDirectory('Selecciona directorio:', '', sDirectory) then
    ShowMessage(sDirectory);

Saludos.