Unicode: UTF-16 surrogate pairs?

[Bernhard Geyer]

Es geht (D2009 und Windows). Jedoch habe ich keine Font mit entsprechenden Zeichen so das ich nur ein 𝄞 angezeigt bekomme.
Mein Testcode:

Delphi-Quellcode:

var
  str: String;
  OrderText: String;
  i: Integer;
begin
  str := #$D834 + #$DD1E;

  OrderText := '';
  for i := 1 to Length(str) do
    OrderText := OrderText + ' #$' + IntToHex(Ord(str[i]), 4);

  Canvas.TextOut(100, 100, str);
  ShowMessage(Format('%s (%d), %s', [str, Length(str), OrderText]));
  Windows.MessageBox(self.Handle, PChar(str), 'Test', MB_OK);
end;