Delphi Dialog ile klasör seçme

with TFileOpenDialog.Create(nil) do
try
  Options := [fdoPickFolders];
  if Execute then
  begin
    //Buradan Dönen "FileName" ile bir değişkene seçilen klasör yolunu alabilirsiniz.
  end;
finally
  Free;
end;