Hola Stanley,
La otra opción es con un procedimiento que tenga una variable "por valor":
Código Delphi
[-]procedure Algo(var Numero: integer);
begin
Numero := (Numero * Numero) + Numero;
end;
Se que el ejemplo es tonto... pero bueno. El lenguaje permite hacer que un procedimiento o función regrese un resultado "por valor". En ocasiones es necesario implementar así, pero en otras no tiene sentido. Como la del ejemplo. Lo correcto sería convertirlo en función:
Código Delphi
[-]
function Algo(Numero: integer): integer;
begin
result := (Numero * Numero) + Numero;
end;
Saludos,