16进制的ascii码转换成字符串时出现乱码，请问怎么解决啊!!!

比如24 54 32 30 31 31 30 36 32 31 31 31 35 35 AD 43 30 31 A4 30 B0 31 34 31 35 34 FF 2A 
转换成字符串为$T201106211153獵01??4344€*+
代码如下procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
  var
      hexbuf:array[1..2048] of byte;
    i:integer;  recedata:Pchar;
  viewstring:string;begin    viewstring:= '';   
         move(buffer^,pchar(@hexbuf)^,bufferlength);
         recedata:=@hexbuf;
         for   i:=0   to   bufferlength-1    do
          begin
           memo1.Lines.Add(inttostr(i)+': '+string(recedata[i]));
           viewstring:=viewstring+string(recedata[i]);           end;Memo2.lines.add(viewstring);Memo1显示如下
0: $
1: T
2: 2
3: 0
4: 1
5: 1
6: 0
7: 6
8: 2
9: 1
10: 1
11: 5
12: 3
13: 1
14: ?
15: C
16: 0
17: 1
18: ?
19: 0
20: ?
21: 1
22: 4
23: 4
24: 1
25: 9
26: ?
27: *
28: ?
29: 0
30: ?
31: C
32: 0
33: 2
Memo2显示如下
$T201106211531獵01??4419??癈02??3447??