comparação de array utilizando XOR

Eu estou desenvolvendo um aplicativo que le dez num, de cada array e fazendo uma comparação com o comando xor. Exemplo
1 xor 2 = 1;
1 xor 1 = 0;
Eu desejo que saia este resultado em meu aplicativo mas, ele só imprime na tela o numero 10....
o codigo que estou utilizando é esse abaixo.
procedure TForm1.BtnIniciarClick(Sender: TObject);
var
z,y,x,r:integer;
begin
MM1.Lines.Clear;
for x:=1 to 11 do
begin
MM1.Lines.add(inttostr(a[x]));
end;
MM3.Lines.Clear;
for y:=11 downto 1 do
begin
MM3.Lines.Add(inttostr(b[y]));
end;
mm2.Lines.Clear;
for z:=1 to 10 do
begin
c[z]:=MM2.Lines.Add(inttostr(a[x] xor b[y]));
end;

Objeto utilizado Memo1 2 botoes
e tres array inteira sendo uma delas para armazenar os numero da comparação. Gostaria de saber onde há erro no codigo acima.