>>364
ルートフォルダ、ってのは、一番上のフォルダだから、その上が表示されないのは当然の仕様。

　dir := 'D:\Delphi6\';
　SelectDirectory('ディレクトリ選択','',dir);

こんなかんじで、予め、３っつめの引数に値を入れておくと、デフォルトの選択になるっぽい。