SmallInt Целочисленный тип, поддерживающий значения от-32768 до 32767
Пример кода : Показ максимальных и минимальных значений Word
var
min, max : Word;
begin // Установка минимального и
максимального значения этого типа данных
min := Low(Word);
max := High(Word);
ShowMessage('Min word значение = '+IntToStr(min));
ShowMessage('Max word значение = '+IntToStr(max));
end;