Модуль: System

Описание
Процедура уменьшает значение переменной X на величину N или на 1, если параметр N опущен (т.е. Dec(X)=X-1, а Dec(X,N)= X-N). Аргумент X должен представлять собой переменную перечислимого типа (включая Int64), или типа PChar (если допускается расширенный синтаксис). Значение необязательного параметра N должно иметь целочисленный тип. Рекомендуется использовать процедуру Dec в программах, насыщенных циклами, т.к. она генерирует наиболее оптимизированный код.

Пример
var
  i: Integer;
begin
  i:= Height-10;
  begin
     while i>0 do
     begin
     Canvas.TextOut(10, i, IntToStr(i));
     Dec(i, 20);          { i:= i-20 }
       end;
end;