控制台中的Unicode

Question

如何在控制台窗口中编写Unicode字符？我已经用Google搜索过，最常见的答案是使用UTF8String或使用SetConsoleOutputCP设置代码页，但我无法正常工作！丹麦字母ø显示不正确。

我DID阅读了以下问题： Is Writeln capable of supporting Unicode?和我DID在发布我自己的问题之前先尝试了一下代码。

一些测试程序：

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, Winapi.Windows;

var
  HolidayName: String;
begin
  HolidayName := 'Palmesøndag'; // Palm Sunday in Danish
  Writeln(HolidayName);
  Writeln(UTF8String(HolidayName));
  SetConsoleOutputCP(TEncoding.UTF8.CodePage);
  Writeln(HolidayName);
  Readln;
end.

结果是：

简而言之，我在做什么错？