Author: Tomas Rutkauskas

Delphi has a TOpenDialog to choose files, but I need an open dialog to choose 
folders only.

Answer:

1   function DirectorySelect: string;
2   var
3     dir_name: string;
4     Options: TSelectDirOpts;
5   begin
6     options := [];
7     if SelectDirectory(dir_name, Options, 0) then
8       Result := dir_name
9     else
10      Result := '';
11  end;