E2013 式の結果は Integer 型でなければなりません (Delphi)

エラーと警告のメッセージ（Delphi） への移動

このエラーは短い文字列型の文字数を指定した定数式が整数型でないときにのみ発生します。

program Produce;
type
  color = (red,green,blue);
var
  S3 : string[Succ(High(color))];
begin
end.

{ このコードは文字列内の要素の数を Color 型の最大値要素に依存する値として指定しようとしているが，要素数が違法な Color 型である }

program Solve;
type
  color = (red,green,blue);
var
  S3 : string[ord(High(color))+1];
begin
end.