Versteht hier jemand Unicode?

[himitsu]

Delphi-Quellcode:

if (TheChar in [$D800..$DBFF{High-Surrogates}, $DC00..$DFFF{Low-Surrogates}]) 
    or (TheChar > $10FFFF) or (weitere) then 
  raise Exception.Create('ungültiges Zeichen')
else if TheChar > $FFFF then begin
  Temp := TheChar - $010000;
  TheWord[0] := (Temp shr 10) or $D800;  // High-Surrogate
  TheWord[1] := (Temp and $03FF) or $DC00;  // Low-Surrogate
end else 
  TheWord[0] := TheChar;