程序代码：

P : PChar;
  Sour : AnsiString;
  S : String;
begin
  Sour := ......
  P := Pointer(Sour);
  S := '';
  for i:=0 to Length(S)-1 do begin
  S := S + ' ' + IntToHex(PByte(P)^ , 2);
  P := P + 1;
  end;
end;

程序代码：

function tform1.StrToHex(AStr: string): string;       
var
  I ,Len: Integer;
  s:char;
begin
  len:=length(AStr);                   
  Result:='';
  for i:=1 to len  do
  begin
    s:=AStr[i];
    Result:=Result +' '+IntToHex(Ord(s),2);         //将字符串转化为16进制字符串，并以空格间隔
  end;
  Delete(Result,1,1);                    //删去字符串中第一个空格
end;