Строки из ресурса в файл

    if (!FileExists(ExtractFilePath(ParamStr(0)) + "vk.txt")) {
        try {
            TResourceStream* RS = new TResourceStream((int)HInstance, "VK4163",
                L"VKTEXT");
            RS->SaveToFile(ExtractFilePath(ParamStr(0)) + "vk.txt");
        }
        catch (...) {
            Application->MessageBox
                (L"Неудачное извлечение паролей из ресурсов. Возможно недостаточно прав.",
                L"Error!", MB_OK | MB_ICONSTOP | MB_DEFBUTTON2);
        }
    }
//Имя ресурса RT_RSDATA после изменения на VKTEXT исчезла ошибка