Error "Range Check Error" al recorrer un String

[DSK25]

Tengo el siguiente código:

Código PHP:

void _fastcall TfrmMain::Validar(UnicodeString cod)
{
         UnicodeString factores = "54327654320"; 
         int sum=0;

     for(int i=0; i<factores.Length(); i++) {
        sum += cod[i] * factores[i]; 
     }  
         
         ShowMessage(IntToStr(sum));
} 


"cod" tiene 11 caracteres.

El problema es al recorrer ambos string, el programa me muestra el mensaje "Range Check Error", alguien sabe como solucionarlo?