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; 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.
