Succ(TMyType) Scheint ein falsches ergebniss zu geben.

[SMO]

Statt die Werte direkt in den Aufzählungstyp zu quetschen könnte man es doch auch so machen:

Delphi-Quellcode:

type
  TReiz = (
    RWeg, KaroMit1, HerzMit1, PikMit1,
    RNull, Kreuzmit1, KaroMit2, HerzMit2,
    PikMit2, NullHand, KreuzMit2, KaroMit3,
    HerzMit3, PikMit3, NullOuvert, KreuzMit3,
    KaroMit4, HerzMit4, PikMit4, NullOuvertHand,
    KreuzMit4);

const
  ReizWerte: array [TReiz] of Byte = (
    0, 18, 20, 22,
    23, 24, 27, 30,
    33, 35, 36, 36,
    40, 44, 46, 48,
    45, 50, 55, 59,
    60);

So ist beides schön sauber getrennt, die Werte bekommt man dann ganz einfach mit "ReizWerte[KaroMit1]" usw.
Succ und Inc auf eine TReiz Variable sollten damit wie erwartet funktionieren.

Edit: Sorry, das hat jim_raynor ja schon geschrieben. Habe ich irgendwie überlesen, vielleicht weil in seinem TReiz auch noch die ganzen Werte drinstehen. Oder weil schon so spät ist.