{$codepage UTF8} VAR ACad:AnsiString; UCad:UnicodeString; Cad:String; PCad:PChar; PWCad:PWidechar; i:byte; BEGIN UCad:='こんにちは'; ACad:='Hola'; PCad:=PChar(ACad); Writeln(PCad); PWCad:=PWideChar(UCad); for i:=0 to length(PWCad) do Write(WideChar(PWCad[i])); Writeln; END.