uses FileCtrl;
var
Dir: string;
begin
if SelectDirectory( '选择目录 ', ' ',Dir) then
edit1.Text :=dir;
end;