Byte로 해서 하는것이네요~~ 정말 감사합니다.
님 덕분에 60번씩 써야 하는것을 해결했습니다.~~ㅋ

장성호 님이 쓰신 글 :
: $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" 이 나 옵니다.뭔가 거구로 나오는것 같은데...이것을 위처럼 나오게하려면 어떻게 하나요??
: :
: : 답변 부탁드립니다.