Beschränkter Bereich für Variable

[nupset]

erstmal danke für die schnellen Reaktionen!!
Ich hätte vielleicht anmerken sollen, dass ich mich grad mal seit 2 Wochen mit Delphi beschäftige, demnach ist mir die Antwort von dataspider etwas zu hoch. sry.
Die beiden anderen Möglichkeiten hören sich ganz gut an, funzen aber irgendwie nicht. die Werte gehen ohne Rücksicht auf verluste über 3 hinaus. Oder mach ich da was falsch??

Delphi-Quellcode:

type TMyType = 1..3;
var test:TMyType;

begin
test:=1;
repeat
  showmessage(IntToStr(test));
  test:=test+1;
until false;
end;

und das andere

Delphi-Quellcode:

var test:1..3;

begin
test:=1;
repeat
  showmessage(IntToStr(test));
  test:=test+1;
until false;
end;

Oder bin ich einfach nur zu blöd?? (Antwort 'Ja' wird nicht akzeptiert )