Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт

program Enumeration;
type
beverage = (coffee, tea, milk, water, coke, limejuice);

var
drink:beverage;

begin
   writeln('Which drink do you want?');
   drink := limejuice;

   writeln('You can drink ', drink); {[color=red]здесь в D10.3 даёт ошибку, а в FreePascal не даёт, как заставить работать в Delphi 10.3?[/color]}
    readln;
end.

[dcc32 Error] Enumeration.dpr(12): E2054 Illegal type in Write/Writeln statement

const 
  BeverageNames: array [Beverage] of string = ('coffee', 'tea', ...);
...
  writeln('You can drink ', BeverageNames[drink]);

writeln('You can drink ', TRttiEnumerationType.GetName<beverage>(drink));

writeln('You can drink ', GetEnumName(TypeInfo(beverage), Ord(drink)));