RAD Studio 2010 программа не работает под XP но запускается!

 RASENTRY RS;
    memset(&RS, 0, sizeof(RASENTRY));
    RS.dwSize = sizeof(RS);
    RS.dwfOptions = RASEO_PreviewUserPw |
    RASEO_ModemLights |
    // RASEO_PreviewDomain |        // отображать поле "Домен" в окне ввода пользователя и пароля (вкладка "Параметры" - установить флажок "Включать домен входа в Windows")
    RASEO_ShowDialingProgress |     // вкладка "Параметры" - Параметры набора номера: установить флажок "Отображать ход подключения"
    RASEO_RemoteDefaultGateway |    // вкладка "Сеть" - "Протокол Интернета (TCP/IP)" - кнопка "Дополнительно" - установить флажок "Использовать основной шлюз в удаленной сети"
    //RASEO_SwCompression |           // вкладка "Сеть" - кнопка "Параметры" - установить флажок "Использовать программное сжатие данных"
    // RASEO_RequirePAP |           // вкладка "Безопасность" - "Дополнительные (выборочные параметры)" - установить флажок "Незашифрованный пароль (PAP)"
    // RASEO_RequireSPAP |          // вкладка "Безопасность" - "Дополнительные (выборочные параметры)" - установить флажок "Протокол проверки пароля Shiva (SPAP)"
    //RASEO_RequireCHAP |             // вкладка "Безопасность" - "Дополнительные (выборочные параметры)" - установить флажок "Протокол проверки пароля CHAP"
    // RASEO_RequireMsCHAP |        // вкладка "Безопасность" - "Дополнительные (выборочные параметры)" - установить флажок "Протокол проверки пароля Microsoft (MS-CHAP)"
    // RASEO_RequireW95MSCHAP |     // вкладка "Безопасность" - "Дополнительные (выборочные параметры)" - установить флажок "Разрешить старый протокол MS-CHAP для Windows 95"
    RASEO_RequireMsCHAP2 |          // вкладка "Безопасность" - "Дополнительные (выборочные параметры)" - установить флажок "Протокол проверки пароля Microsoft (MS-CHAP v2)"
    RASEO_SecureLocalFiles;          // вкладка "Сеть" - Компоненты, используемые этим подключением: снять флажок "Использовать основной шлюз в удаленной сети";
    RS.dwfOptions2 = RASEO2_DontNegotiateMultilink | RASEO2_ReconnectIfDropped | RASEO2_SecureClientForMSNet | RASEO2_SecureFileAndPrint;
    RS.dwfNetProtocols = RASNP_Ip;             // протокол Интернета
    RS.dwFramingProtocol = RASFP_Ppp;            // протокол Point-to-Point Protocol
    RS.dwType = RASET_Vpn;      // тип подключения RASET_Broadband
    RS.dwVpnStrategy = VS_PptpFirst;           // вкладка "Сеть" - По умолчанию
    RS.dwEncryptionType = ET_None;          // параметры шифрования (ET_None, ET_Require, ET_RequireMax, ET_Optional)
    RS.dwDialMode = RASEDM_DialAll;
    RS.dwRedialCount = 3;                   // число повторов набора номера
    RS.dwRedialPause = 1;                  // интервал между повторениями
    lstrcpy(RS.szLocalPhoneNumber, TEXT("****"));
    lstrcpy(RS.szDeviceType, TEXT("VPN"));             // RASDT_PPPoE - обуславливает тип подключения (PPPoE)
    lstrcpy(RS.szDeviceName, TEXT("VPN"));
    DWORD dwRet = RasSetEntryProperties(NULL,TEXT("****"), &RS, sizeof(RS), NULL, 0);
    ShowMessage("Соединение создано!");