Ausgabe eines UTF8-Strings in UTF8-Darstellung

[Bummi]

sowas?

Delphi-Quellcode:

var
 Usr:UTF8String;
 Asr:AnsiString;
begin
  Usr := 'äöü';

  Setlength(Asr,Length(Usr));
  Move(Usr[1],Asr[1],Length(Usr));
  Showmessage(asr);
end;



齅äöü >> Length(Usr)=9

齅äöü1234567890 >> Length(Usr)=19