A dialog for choice catalog path in BCB

void __fastcall TMain::btnChoicePathClick(TObject *Sender)
{
    String Dir=edtPath->Text;
    //SelectDirectory(Dir,TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,0);
    SelectDirectory(Dir,"",Dir);
    edtPath->Text=Dir;
}