Como retornar un valor en Delphi

[[Delphius]]

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,