überlauf bei eigenem Zahlentyp

[TeronG]

Hi

Ich habe ein Ventil das die Stellung 1 bis 16 haben kann.
Nun hab ich mir einen eigenen Type definiert der von 1 .. 16 geht.
Nun dachte ich, daß wenn ich über 16 hinauskomme (überlauf) ich wieder bei 1 lande. (Wie bei Byte, Word, ...)
Nur leider klappt das nicht. Wenn ich meinem Type einen Wert über 16 zuweise meckert zwar Delphi (Bereichsüberschreitung) aber während der Laufzeit stört es nicht, wenn der Wert außerhalb des Bereiches liegt.

Delphi-Quellcode:

type
  TStellung = 1..16;

var 
  vStellung : TStellung;

Meine Frage währe nun wie ich diesen "Überlaufeffekt" auch bei meinem Type mir bekomme?

Vorläufig habe ich das mal alles ausprogrammiert aber mit überlauf währe schöner.