{$APPTYPE CONSOLE}

var
   a1, a2, a3: AnsiString;
begin
   a1:='aä';
   Writeln('a1 = "', a1, '" cp = ', StringCodePage(a1));
   a2:=AnsiToUTF8('oö');
   Writeln('a2 = "', a2, '" cp = ', StringCodePage(a2));
   a3:=a1+a2;
   Writeln('a3:=a1+a2 = "', a3, '" cp = ', StringCodePage(a3));
   a3:=a2+a1;
   Writeln('a3:=a2+a1 = "', a3, '" cp = ', StringCodePage(a3));
   readln;
end.