var
  C, X : String;
begin
  C := '啊';
  X := Format('%.2x%.2x', [Ord(C[1]), Ord(C[2])]);
  Showmessage(X);
end;

Delphi(O Pascal)没有十六进制表示法，因此用十六进制字符串表示

var
 i:integer;
 s,s1:string;
 begin 
 s1:='啊哦饿';
 for i:=1 to length(s1) do
 begin
 s:=s+inttohex(ord(s1[i]),2);
 end;
 Showmessage(s);//B0A1C5B6B6F6