如何将pchar转换成为hex

var
id:thandle;
rLen:LongInt;
PBuf:PChar;
Buf:String;
begin
Result := 0;
if endrecvthread = true then exit;
rlen := sio_iqueue(port);
PBuf := PChar(StringOfChar(char(0),rlen+1));
rlen :=