接上次“用过spcomm第三方控件的高手请帮忙————在线等待！！”继续讨论？？？？

大家好：
     我才发现问题的所在原来是接受代码有问题！！？？？？？？？
请您们帮俺看看好吗？？？？先谢谢了啊！！！
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
 tmpArray:array[0..4096] of Byte;
 i: DWORD;
 tmpStr:string;
 wchb:string;
 pStr:PChar;
begin
   pStr:=Buffer;
   tmpStr:=string(pStr);
   Dec(PStr);
   for i:=0 to Length(tmpStr)-1 do
    begin
     inc(PStr);
     tmpArray[i]:=Byte(PSTR^);
     wchb:=wchb+inttohex(Ord(tmpArray[i]),2);
    end;
   memo2.Lines.Add(wchb);
end;
以上是用SPCOMM控件接受‘十六进制’数据的代码！？？？
请高手帮俺看看好吗？？？？？
拜托拜托了啊！！！