if (SelectDirectory("Hello","*.*",Dir))
//if (SelectDirectory(Dir, TSelectDirOpts()<< sdAllowCreate<< sdPerformCreate << sdPrompt,SELDIRHELP))
Edt_FileDest->Text = Dir;
//if (SelectDirectory(Dir, TSelectDirOpts()<< sdAllowCreate<< sdPerformCreate << sdPrompt,SELDIRHELP))
Edt_FileDest->Text = Dir;