다음과 같이 해보세요

a:='$4D';
...
Tx_Buf[0]=StrToInt(a);

그럼..

김현승 님이 쓰신 글 :
: 안녕하세요~~
: 저번에 질문 드렸던 부분입니다. 하지만 잘 안되서 다시 질문합니다.
:
:  안녕하세요....
:  var
:  a  : string;
:  TX_Buf : array[0..11] of Char;
: 
:  이라고 있을 때...
:  a := '4D'; //원래 들어간다면 $4D 값을 넣고 싶습니다. Hex 값 4D입니다.
:  TX_Buf[0] := chr(여기에 저 a 값을 넣고 싶은데...) ; <== $4D 이런씩으로요~~ 어떻게 넣나요?
: 
: ComPort1.Write(TX_Buf,12);
:
: 저번 답글은 TX_Buf[0] := chr(strtoint(42)) 었는데 4D가 들어가니 안되네요~~
:
: 답변 부탁드립니다.