freepascal.compiler/tests/test/tutf81.pp

var
  w : widestring;
begin
  w:='äüö';
  writeln(w);
  writeln('äa');
end.