var
s:string;
lvAnsiStr:AnsiString;
begin
lvAnsiStr := '中国';
Writeln(Length(lvAnsiStr));
lvAnsiStr := UTF8Encode('中国');
Writeln(Length(lvAnsiStr));
s := 'a';
lvAnsiStr := UTF8Encode('中国') + s;
Writeln(Length(lvAnsiStr));
lvAnsiStr := UTF8Encode('中国') + 'a';
Writeln(Length(lvAnsiStr));