Parametro de Retorno...

[jachguate]

De los viejos días de Turbo Pascal...

Podes valerte de la variable ExitCode (supongo que definida en System). Cuando tu programa termina, retorna el valor asociado a esta variable.

Código Delphi [-]
Procedore TForm1.Button1Click(Sender :TObject);

Begin
  ExitCode := 1;  // Al terminar, retornará 1
  Application.Terminate;
end;

Supongo que sigue siendo válido... alguna lectura de hoy me hace pensar que si, pero no lo he probado.

Hasta luego.