Existe una función "SelectDirectory" en la unidad FileCrt. te adjunto un ejemplo.
#include <FileCtrl.hpp>
const SELDIRHELP = 1000;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Dir = "C:\Program Files\MyApp";
if (SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,SELDIRHELP))
Label1->Caption = Dir;
}
ya me cuentas si te ha valido.
Suerte
