Beschränkter Bereich für Variable

[nupset]

Hallo,
ich möchte gerne eine Variable haben, die nur die Werte von 1 bis 3 annehmen kann. Das ist wahrscheinlich gar nicht sonderlich schwierig, aber jetzt kommts
Sollte der Wert außerhalb des Bereiches liegen, dann soll er automatisch... bäh. Mir fehlen die Worte...
also

Delphi-Quellcode:

variable:=3;
variable:=variable+1;
// Soll jetzt nicht 4 sein, sondern bei eins neu anfangen

und genauso

Delphi-Quellcode:

variable:=1;
variable:=variable-1;
// Soll jetzt nicht 0 sein, sondern 3

Ich hoffe das war einigermaßen verständlich...
Gibts da was, wie man das realisieren kann oder muss man da mehr oder weniger viel Aufwand treiben? (Mit if-Anweisungen und so kann ich das sonst auch alleine... )