Dec will decrement an ordinal variable.

Example:

begin
   if((Index < 0) or (Index >= FCount)) then Error;
    Dec(FCount);
        if(Index < FCount) then
         System.Move(FList^[Index + 1], FList^[Index], (FCount - Index) *
         SizeOf(THashItem));
 end;