Konstanten-Array ist nicht konstant

[darktrym]

Eigentlich sollte das recht trivial sein aber der Compiler meldet stets das folgendes Konstrukt nicht konstant (genug) ist und deshalb im Case-Block nicht verwendet werden kann:

Delphi-Quellcode:

type
  tMfc_MessageTypes = (MMT_None{=0}, MMT_PalletComplete{=90}, MMT_Inserted{=100});
  tMfc_MessageTypeArray = array[tMfc_MessageTypes] of integer;
const
  cMfc_MessageTypes: tMfc_MessageTypeArray = (0, 90, 100);

Der Zugriff erfolgt dann via:

Delphi-Quellcode:

Case x of 
cMfc_MessageTypes[MMT_Inserted]: y; 
end;

Wie erstelle ich nun einen Konstanten-Array?