procedure Inc(var Value: Integer) procedure Inc(var Value: Integer; By: Integer)
X := 1; Inc(X); Y := IntToStr(X) // Y is '2'