Не только путь указать, но и папку создать

[Janger]

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir : string;
begin
   if SelectDirectory('Выберите папку', 'X:\', Dir) then
   begin
      Edit1.Text := Dir
   end;
end;

Таким образом, в Edit1 виден путь указанный при нажатии на кнопку.
Но я бы хотел сделать так, что бы можно было создать папку в всплывающем окне.
Подскажите как это сделать, спасибо.

[Xo66um]

Если имеется в виду добавить кнопку "Создать папку" в окне выбора директории, то почитайте эту тему

[Janger]

Сообщение от Xo66um

Если имеется в виду добавить кнопку "Создать папку" в окне выбора директории, то почитайте эту тему

понял, спасибо

[FaTaL]

Janger, вот способ намного проще:

if SelectDirectory ('Выберите папку',
    'D:\, C:\', Dir, [sdNewFolder, sdNewUI, sdValidateDir]) then
Edit1.Text := Dir;