Вылетает программа при шифровке

void code(char* lpCode, char* lpPassword, char* lpResult)
{
    unsigned int a = 0, b = 0;
    a = 0;
    while (lpResult[a])
    {
        b = 0;
        while (lpPassword[b])
        {
            lpResult[a] ^= (lpPassword[b] + (a*b)); 
            b++; 
        }
        a++;
    }
}

        char szCode[1000];
        char szPassword[20];
        strcpy(szPassword,"somepass");
        char szResult[1000];
        AnsiString message = "hi";
        strcpy(szCode,list2->message.c_str());
        while (szCode[a])
        {
        szResult[a] = szCode[a];
        a++;
        }
        szResult[a] = 0;
        code(szCode, szPassword, szResult);

AnsiString __fastcall TForm1::XOR_Crypt(AnsiString in, AnsiString pass)
{
 AnsiString out;
 for (int x=1;x<in.Length()+1;x++)
     {
        if(in[x]==(char)('\0'+1))
        {
           out += (char)((in[x]-1 )^ pass[x%pass.Length()+1]);
        }
        else
            {
            if((char)(in[x] ^ pass[x%pass.Length()+1])!='\0')
              out += (char)(in[x] ^ pass[x%pass.Length()+1]);
            else
                out += (char)(in[x] ^ pass[x%pass.Length()+1]+1);
            }
     }
return out;
}
//---------------------------------------------------------------------------

   TStringList * list2 =  new TStringList;
   list2->Add("123");
   list2->Add("321");
 
   Memo1->Text = XOR_Crypt(list2->Text, "zzz");