Delphi declaring a constant array of records.

type
??TSampleEnumType = (seNone, seONE, seTWO, seTHREE, seFOUR);
??TSampleRecord = record
????SampEType: TSampleEnumType;
????iValue: integer;
??end;

const
??TConstArrayofRecord: array [0..4] TSampleRecord (
????(SampEType: seNONE; iValue: 0),
????(SampEType: seONE; iValue: 1),
????(SampEType: seTWO; iValue: 2),
????(SampEType: seTHREE; iValue: 3),
????(SampEType: seFOUR; iValue: 4),
??);