[Delphi] 抓取使用者指定資料夾路徑

在Delphi中常用TOpenDialog讓使用者指定存檔或抓取指定的檔案，
但是如果只是要單純的取得使用者指定的資料夾路徑呢？
透過下列方法即可取得，但是我使用起來在顯示瀏覽視窗時速度有點慢！！

procedure TForm1.SButton1Click(Sender: TObject);
var xDir: WideString;
begin
  if SelectDirectory('請選擇目錄', '', xDir) then
  begin
    //ShowMessage(xDir);
    Edit_SrcRoot.text := xDir;
  end;
end;

參考自 Delphi 下讓使用者選擇目錄方式