Не работает SelectDirectory

#include <FileCtrl.hpp>
AnsiString Dir;
if(SelectDirectory("Выберите папку","",Dir))
{
  Edit->Text=Dir;
}

#include <shlobj.h>
 
void __fastcall TFmain::Button2Click(TObject *Sender)
{
 
    BROWSEINFO    info;
    char          szDir[MAX_PATH];
    char          szDisplayName[MAX_PATH];
    LPITEMIDLIST  pidl;
    LPMALLOC      pShellMalloc;
 
    // SHBrowseForFolder возвращает PIDL. Память для  PIDL
    // распределяется оболочкой. В итоге, мы должны очистить
    // эту память, так как мы должны получить указатель на объект
    // shell malloc COМ который будет позже освобожден PIDL.
    if(SHGetMalloc(&pShellMalloc) == NO_ERROR)
    {
        //если мы получили оболочку malloc объекта,
        // тогда продолжите, инициализируя структуру BROWSEINFO
        memset(&info, 0x00,sizeof(info));
        info.hwndOwner = Handle;                 // Owner window
        info.pidlRoot  = 0;                      // root folder
        info.pszDisplayName = szDisplayName;     // return display name
        info.lpszTitle = "Browse Title";         // label caption
        info.ulFlags   = BIF_RETURNONLYFSDIRS;   // config flags
        info.lpfn = 0;                           // callback function
 
        // вызовем диалог
        pidl = SHBrowseForFolder(&info);
 
        // pidl будет null если пользователь нажмет cancel в диалоге выбора
        // pidl не будет null если пользователь выбрал папку
        if(pidl)
        {
            // попытаемся преобразовать pidl в строку
            // при успешном преобразовании возвращаемое значение - true
        if(SHGetPathFromIDList(pidl, szDir))
            {
                // set one caption to the directory path
                E1->Text = szDir;
            }
 
            // set another caption based on the display name
            //E2->Text = info.pszDisplayName;
 
            // Освобождим pidl.
            // затем вызовем Relasee для сигнализирования, что мы больше
            // не нуждаемся в shell malloc object
            pShellMalloc->Free(pidl);
        }
        pShellMalloc->Release();
    }
}

BROWSEINFO bi = { 0 };
    LPITEMIDLIST pidl = SHBrowseForFolder ( &bi );
    if ( pidl != 0 )
    {
    TCHAR path[MAX_PATH];// get the name of the folder
    if ( SHGetPathFromIDList ( pidl,path  ) )
    {
        editpath=((LPCTSTR)path);         
    }
    FILE *datapath;
    datapath=fopen("C:\\Program files\\Application-Help\\path.txt","w");
    if (datapath==NULL)
    MessageBox(0,_T("Ошибка! Путь не сохранён"), _T("ERROR!"),  MB_ICONWARNING);
    else{
    char* cstrep = new char[512];
    wchar_t* wstrep = new wchar_t[512]; 
    wstrep = editpath.GetBuffer(editpath.GetLength()); 
    CharToOem( wstrep,cstrep);
    fprintf(datapath,"%s",cstrep);
    fclose(datapath); 
    }
    }

UnicodeString &Directory, TSelectDirOpts Options, int HelpCtx
UnicodeString Caption, WideString Root, UnicodeString &Directory, TSelectDirOpts Options, TWinControl *Parent

extern PACKAGE bool __fastcall SelectDirectory(System::UnicodeString &Directory, TSelectDirOpts Options, int HelpCtx)/* overload */;
extern PACKAGE bool __fastcall SelectDirectory(const System::UnicodeString Caption, const System::WideString Root, System::UnicodeString &Directory, TSelectDirExtOpts Options = (TSelectDirExtOpts() << TSelectDirExtOpt::sdNewUI ), Controls::TWinControl* Parent = (Controls::TWinControl*)(0x0))/* overload */;

#if defined(_DELPHI_STRING_UNICODE)
    typedef UnicodeString        String;           //
#else
    typedef AnsiString           String;           //
#endif

Если ( "Версия IDE" >= 2009 ) {  // версии: RAD 2009, RAD 2010, RAD XE
  //------------------------------------------------------------------
  String == UnicodeString;
  Если (Опция _TCHAR maps to == char ) {
    UnicodeString::t_str() -> (char *)
  } Иначе {
    UnicodeString::t_str() -> (wchar_t *)
  }
  UnicodeString::c_str() -> (wchar_t *)
  UnicodeString::w_str() -> (wchar_t *)
  //------------------------------------------------------------------
} Иначе { // версии BCB 6, BDS 2006, RAD 2007
  //------------------------------------------------------------------
  String == AnsiString;
  AnsiString::c_str() -> (char *)
  AnsiString::WideChar(wchar_t* dest, int destSize) -> (wchar_t *)
  //------------------------------------------------------------------
}