[BUG] enum cast

program Test;
// compiler version 05.09.08
Device = mega2560, VCC=5;

Import;

Define
  ProcClock      = 16000000;       {Hertz}
  StackSize      = $0100, iData;
  FrameSize      = $0100, iData;

Implementation
{$IDATA}
 
type
  tFunction = (FUNC_OFF, FUNC1, FUNC2, FUNC3, FUNC4, FUNC5,
               FUNC6, FUNC7, FUNC8, FUNC9);

  tConfig = record
    func : tFunction;
  end;

  tConfigList = array[0..2] of tConfig;

var
  byteArray : array[0..1] of byte;
  configList : tConfigList;

begin
  FillBlock(@configList, sizeof(configList), 0);
  byteArray[0] := 8;
  configList[1].func := tFunction(byteArray[0]);
  loop
  endloop;
end Test.