Ошибка Range check error!

void __fastcall TOBRABOTCHIK::ShifrClick(TObject *Sender)
{
    typedef UnicodeString(*Zashifr_func)(UnicodeString, UnicodeString);
    Zashifr_func Zashifr;
    HINSTANCE Bibl = LoadLibraryA("MyDLL.dll");
    if (!Bibl) {
        throw Exception("Не удалось подключить библиотеку MyDLL.dll");
    };
    Zashifr = (Zashifr_func)GetProcAddress(Bibl, "_Zashifr");
    if (!Zashifr) {
        FreeLibrary(Bibl);
        throw Exception("Не удалось найти функцию Zashifr в библиотеку MyDLL.dll");
    };
    UnicodeString kslovo = KSlovo->Text;
    UnicodeString input = Ishodnik->Lines->Text;
    UnicodeString result = Zashifr(input, kslovo);
    Gotovo->Lines->Text = result;
    FreeLibrary(Bibl);
}

extern "C" __declspec(dllexport) UnicodeString Zashifr(UnicodeString input, UnicodeString kslovo)
{
    if (kslovo.Length() == 0)
    {
        return input;
    }
    int y = kslovo.Length();
    vector<int> kluch;
    for (int i = 0; i < y; i++)
    {
        wchar_t t = kslovo[i];
        if (iswalpha(t))
        {
            if (t >= L'a' && t <= L'z')
                kluch.push_back(t - L'a' + 1);
            else if (t >= L'A' && t <= L'Z')
                kluch.push_back(t - L'A' + 1);
            else if (t >= L'а' && t <= L'я')
                kluch.push_back(t - L'а' + 1);
            else if (t >= L'А' && t <= L'Я')
                kluch.push_back(t - L'А' + 1);
        }
        else
        {
            kluch.push_back(0);
        }
    }
    UnicodeString output;
    int kluchLength = kluch.size();
    if (kluchLength == 0) {
        return input; 
    }
 
    for (size_t i = 1; i <= input.Length(); i++) {
        wchar_t ch = input[i - 1];
        if (iswalpha(ch)) {
            wchar_t base;
            int shift;
 
            if (ch >= L'a' && ch <= L'z') {
                base = L'a';
                shift = kluch[i % kluchLength];
            } else if (ch >= L'A' && ch <= L'Z') {
                base = L'A';
                shift = kluch[i % kluchLength];
            } else if (ch >= L'а' && ch <= L'я') {
                base = L'а';
                shift = kluch[i % kluchLength];
            } else if (ch >= L'А' && ch <= L'Я') {
                base = L'А';
                shift = kluch[i % kluchLength];
            }
 
            int alphabetSize = (base == L'a' || base == L'A') ? 26 : 32;
            int newIndex = (ch - base + shift) % alphabetSize;
            if (newIndex < 0) newIndex += alphabetSize;
            ch = static_cast<wchar_t>(newIndex + base);
        }
        output += ch;
    }
    return output;
}

//   Important note about DLL memory management when your DLL uses the
//   static version of the RunTime Library:
//
//   If your DLL exports any functions that pass String objects (or structs/
//   classes containing nested Strings) as parameter or function results,
//   you will need to add the library MEMMGR.LIB to both the DLL project and
//   any other projects that use the DLL.  You will also need to use MEMMGR.LIB
//   if any other projects which use the DLL will be performing new or delete
//   operations on any non-TObject-derived classes which are exported from the
//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
//   the file BORLNDMM.DLL should be deployed along with your DLL.
//
//   To avoid using BORLNDMM.DLL, pass string information using "char *" or
//   ShortString parameters.
//
//   If your DLL uses the dynamic version of the RTL, you do not need to
//   explicitly add MEMMGR.LIB as this will be done implicitly for you.
//   If you are using the static version of the RTL, add #include<usebormm.h>
//   to one of the source files for your DLL