Przepelnienie zmiennej

Witam mam pytanie czy jest w delphi mozliwosc zablokowania przepelnienia sie wartości zmiennej bez jej sprawdzania chodzi mi o cos takiego:

var
a:smallint;
begin
if (a<>-32768) and (a<>32768) then
begin
if a>0 then inc(a)
else
dec(a);
end;
end;

O ile pamiętam w Delphi jak np. zrobisz tak:

var x: byte;
begin
  x:=255;
  inc(x);
end;

To wartość x się wyzeruje.

Inaczej sie nie da, niż podobnie jak zrobiłes, chociaż mozna prościej:

if a>Low(smallint) and a<High(smallint) then
begin
  {odpowiedni kod}
end;