Delphi 10.1 Berlin UTF8String Test

procedure TForm1.Button1Click(Sender: TObject);var s: UTF8String;    i: Integer;begin     s := UTF8Encode('123中文测试');     Memo1.Lines.Add(UTF8Decode(s));     for i:=Low(s) to High(s) do         Memo1.Lines.Add(i.ToString + ' : ' + IntToHex(Ord(s[i]), 2));end;