Codigo Bug.

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;

eu fiz este codigo mas ele sai um resultado totalmente errado ele so imprime um numero...
eu gostaria que ele fizesse camparaçoes com o Xor mas não estadando certo. Alguem sabe onde eu posso estar errando....