传奇所有版本封包加解密库免费下载！

我只对人的HEX显示感兴趣,可以说说他是做什么的? 能不能将字符串以HEX串显示出来?procedure TFormMain.Button1Click(Sender: TObject);
var
  s                           : string;
  P:Pointer;
begin
  s := Memo1.Lines.text;
  //s := Decode(s);
  P := @s;
  HexDump := CreateHexDump(TWinControl(Panel1));
  HexDump.Address := P;
  HexDump.DataSize := Length(s);
  HexDump.Refresh;
end;
这样明显不行哦.请教了