[<<D>>]

Может быть, я ошибаюсь, но, по-моему, так легче:

Uses ...FileCtrl;

...

var
S: string;
begin
S := '';
if SelectDirectory('Select Directory', '', S) then
path:=s;
end;