请教(100分)

函数SelectDirectory中的Option参数被定义为集合类型，请问实参应该怎样设定？
（最好有个实例）
谢谢再谢谢。

uses FileCtrl;
const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:/MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;

//須包含FileCtrl單元.
{Win32風格}
procedure TForm1.Button1Click(Sender: TObject);
var
sCap,Root,Dir:String;
begin
sCap:='選擇目錄';
//定義目錄選擇對話框的標題
Root:='';
//定義目錄選擇對話框的根結點,空字符串為桌面
if SelectDirectory(Dir,Root,Dir) then
//返回True表示已選擇目錄
ShowMessage(Dir);
//Dir返回選擇的目錄
end;
//注:如果Root指定的目錄不存在,則觸發異常
{Win31風格}
procedure TForm1.Button2Click(Sender: TObject);
var
Dir:String;
begin
Dir:='D:/';
//指定初始路徑
if SelectDirectory(Dir,[sdAllowCreate, sdPerformCreate, sdPrompt],0) then
ShowMessage(Dir);
end;

[sdAllowCreate, sdPerformCreate, sdPrompt]
//按英文的意思不難理解吧?
[sdAllowCreate]允許建立新目錄,即在對話框的文本框中輸入不存在的目錄時,可以創建.
[sdPerformCreate]自動執行創建目錄
[sdPrompt]創建目錄前提示,要求確認
//這几句代碼就不用做成實例了吧!