Otra opción:
Código Delphi
[-]
uses FileCtrl;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Carpeta: String;
begin
if SelectDirectory('Seleccione la carpeta destino', '', Carpeta) then
Edit1.Text := Carpeta;
end;
SelectDirectory muestra el cuadro de diálogo estándar para seleccionar un directorio.
// Saludos