1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TVitals = (
    vitHP = 1,
    vitMP,
    vitSP,
    vital_count
    );
...
var
  vital: array[1..(vital_count-1)] of Byte;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TVitals = (
    vitHP = 1,
    vitMP,
    vitSP
   );
const vital_count = 3; // muss natürlich mit TVitals konsistent sein

var
  vital: array[1..vital_count] of Byte;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TVitals = (
    vitHP = 1,
    vitMP,
    vitSP
    );
...
var
  vital: array[TVitals] of Byte;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TVitals = (vitHP, vitMP, vitSP);

const
  Vitals: array[TVitals] of string = ('Haltbare Packung', 'Miefige Packung', 'Sonderbare Packung');

// und im Code:
var
  MyVital: TVitals;
...
ShowMessage(Vitals[MyVital]);