Ограниченный тип 0..11 сброс в нуль при перепонении

[Alex Cones]

Type
 VectInt = 0..11;

Var
 V:VectInt; // По идее должна быть ограничена 0..11

Батон1.Клик
Begin
 Inc(V);
 Label1.Caption := IntToStr(V);
End;

Батон2 аналогичен батону1, только с Dec

Жмакаю на батон 1 11 раз, получаю 11, жмакаю в 12-й раз - получаю 12 (О_о) потом дохожу до 255 и счетчик сбрасывается, аналогично с Dec - счетчик уходит в 255 после 0.
Вопрос - можно ли сделать чтобы обнулялась после 11 и уходила в 11 после нуля в обратную строну? Или придется писать собственный Inc & Dec для этого случая?

[maxionans]

Для случая с Inc используй V := ( V + 1 ) mod 12; для случая с Dec - V := ( V - 1 ) and 11;

[BioHEX]

Можно сделать проверку что-то вроде этого:
var
b:Boolean;

begin
if V=-11 then
b:=false;
if V=11 then
b:=true;
if b then
dec(V)
else
inc(V);

[Alex Cones]

maxionans, благодарю!

[Greek9000]

Не прошёл даже вот такой вариант:

type
  TVectInt = (aOne = 1, aTwo = 2, aThree = 3);

может быть есть смысл сделать так:

const
 VectInt = 12;

Var
 V:Byte; // По идее должна быть ограничена 0..11

Батон1.Клик
Begin
 Inc(V);
 Label1.Caption := IntToStr(V mod VectInt );
End;