如何把“寻觅觅”按这种编码方式输出0x5BFB,0x89C5,0x89C5？

[netyou]

如何用delphi把“寻觅觅”汉字按这种编码方式输出0x5BFB,0x89C5,0x89C5？我需要得到的就是“0x5BFB,0x89C5,0x89C5”

[阿发伯]

var
  ws: WideString;
  I, Len: Integer;
  s: String;
begin
  ws := '寻觅觅';
  Len := lStrlenW(PWChar(ws));
  s := '';
  for I := 1 to Len do
    s := s + Format('0x%x,', [Ord(ws[I])]);
  //s := s + '0x' + IntToHex(Ord(ws[I]), 4) + ',';
  Caption := s;
end;

[netyou]

感谢maozefa ，delphi和bcb都通吃啊