есть процедура:

ArcFourInit(struct ArcFourContext *context, const byte *key, unsigned int key_length)

в ней код:

for (i = 0; i < 256; i++)
  {
   j = (j + key[k] + a) & 0xff;
  }

как переделать key[k] на pascal, Delphi ругается на все мои попытки!