Somar por referência

Somar.Referencia.pas

procedure AddOne(var X, Y: Integer); 
begin 
  X := X + 1; 
  Y := Y + 1; 
end; 

// depois que este código for executado, o valor de I será 3.
var  
  I: Integer; 
begin
  I := 1; 
  AddOne(I, I); 
end;