uses FileCtrl;

var
  szPath: string;
if SelectDirectory('选个目录看看','',szPath) then
Edit1.Text := szPath;