Вообще-то баг здесь:

inline BSTR A2WBSTR(LPCSTR lp, int nLen = -1)
{
    USES_CONVERSION;
    BSTR str = NULL;
    int nConvertedLen = MultiByteToWideChar(_acp, 0, lp,
        nLen, NULL, NULL)/* -1  <- BUG fixed */;

  if (nLen==-1)
     nConvertedLen = nConvertedLen -1;
    str = ::SysAllocStringLen(NULL, nConvertedLen);
    if (str != NULL)
    {
        MultiByteToWideChar(_acp, 0, lp, -1,
            str, nConvertedLen);
    }
    return str;
}

более подробно здесь.

Уже вышла ATL 7.0, но только где ее взять в редакции для BCB не известно.