$7D 잘 나오는것 같은데요..

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c : Byte;
begin
  a:=$4d;
  b:=$30;
  c:= a xor b;
  ShowMessage( IntToHex(c,2));
end;

그럼..

김현승 님이 쓰신 글 :
: 안녕하세요~ 또 질문입니다.
:
: a := $4D; //==>01001101
: b := 30;   //==>00110000
:
: 이 값을 xor하는 부분입니다. 이러면 a xor b 하면되는건데...값이 다르게 나오는것 같아서요...
:
: 4D는 01001101 이고 30은 00110000 인데 이것을 xor 하면 "01111101"이 나와야 하는데... (참고 : 01111101는 7D입니다.)
: 그런데 $4D xor 30을 하게되면 83 즉 "10000011" 이 나 옵니다.뭔가 거구로 나오는것 같은데...이것을 위처럼 나오게하려면 어떻게 하나요??
:
: 답변 부탁드립니다.