file: ZXing.OneD.UPCEANExtension5Support
line: 204, 211

current:

Inc(sum, StrToIntDef(s[i], 0));

should be:

Inc(sum, StrToIntDef(s.Chars[i], 0));