procedure Dec(var Value: Integer) procedure Dec(var Value: Integer; By: Integer)
X := 10; Dec(X); Y := IntToStr(X) // Y is '9'