Delphi获得选定路径

procedure TbsFileUrlPop.cxtxtdtDestinationUrlClick(Sender: TObject);
var
  strPath: string; // 用户选定后的目录
begin
  inherited;
    strPath := '';
  if (SelectDirectory('请选择文件保存的路径', '', strPath)) then
  begin
    cxtxtdtDestinationUrl.Text := strPath;
  end;
end;