Koristi funkciju SelectDirectory.
Primer:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var IzabraniDir: String;
begin
SelectDirectory('Izaberite direktorijum', 'C:\', IzabraniDir);
ShowMessage(IzabraniDir);
end;
Potrebno je dodati FileCtrl u uses!