Wenn man lieber UCS4StringToUnicodeString benutzen möchte, dann geht das so:
Delphi-Quellcode:
function StringToSteuerZeichen(const s: String): String;
var
c: Cardinal;
t: UCS4String;
begin
c := StrToInt(copy(s, 2, MaxInt));
SetLength(t, 2);
t[0] := UCS4Char(c);
t[1] := UCS4Char(0);
Result := UCS4StringToUnicodeString(t);
end;