E2027: タグが重複しています (Delphi)

エラーと警告のメッセージ（Delphi）：インデックス への移動

このエラーメッセージはレコードの可変部の宣言で定数を 2 つ以上使ったときに表示されます。

program Produce;
type
  VariantRecord = record
    case Integer of
    0: (IntField: Integer);
    0: (RealField: Real);     (*<-- ここでエラーメッセージ*)
  end;

begin
end.
	program Solve;
type
  VariantRecord = record
    case Integer of
    0: (IntField: Integer);
    1: (RealField: Real);
  end;

begin
end.