E2054 Illegal type in Write/Writeln statement (Delphi)

Go Up to Error and Warning Messages (Delphi)

This error occurs when you try to output a type in a Write or Writeln statement that is not legal.

program Produce;
type
  TColor = (red,green,blue);
var
  Color : TColor;
begin
  Writeln(Color);
end.

It would have been convenient to use a writeln statement to output Color, wouldn't it?

program Solve;
type
  TColor = (red,green,blue);
var
  Color : TColor;
const
  ColorString : array [TColor] of string = ('red', 'green', 'blue');
begin
  Writeln(ColorString[Color]);
end.

Unfortunately, that is not legal, and we have to do it with an auxiliary table.