Dec

procedure Dec(var Variable Ordinal variable);

The Dec procedure decrements the ordinal Variable parameter passed to it.

Example:

var
  Number    : Integer;

begin
  Number := 23;
  ShowMessage('Number : '+IntToStr(Number));
  Dec(Number);
  ShowMessage('Number-1 : '+IntToStr(Number));
end;

Output:

Number : 23

Number-1 : 22