Aufzählungstyp und Array: Fehler beim Zugriff per Index

[Union]

Irgend etwas verheimlichst Du uns. Folgender Code läuft problemlos:

Delphi-Quellcode:

program Aufzaehlungstyp;

{$APPTYPE CONSOLE}

type
  TAufzaehlungstyp = (tA, tB, tC);

  var
  i_typ: TAufzaehlungstyp ;
  anteil_typ: array[TAufzaehlungstyp] of double;

begin
  for i_typ:= low(TAufzaehlungstyp) to high(TAufzaehlungstyp) do begin
    anteil_typ[i_typ] := 0;
  end;
end.