desafio xor binario...

PRECISO FAZER ISSO CHAR POR CHAR DA SEGUINTE FORMA: INFORMO A STRING : MA123 DAI A FUNCAO VAI FAZENDO O XOR ENTRE M Xor A = B depois o resultado da anterior com a proxima B Xor 1 = C e assim por diante ate o final da string algiume pode me ajudar...

R := 0;
for I := 1 to Length(S) do
  R := R xor Ord(S[I]);

o Xor deve ser feito no valor binario do caracter ex. 00000101 Xor 00000110