Клуб программистов

    В переменную ErrorAddr заносится адрес ошибки при достижении условия завершения приложения. Значение переменной выводится в диалоге об ошибке.

     Сам Delphi также хранит адрес кода ошибки при возникновении ошибки времени выполнения.

var
   i : Integer;
begin
   // Set up an error address so that halt shows a termination dialog
   ErrorAddr := Addr(i);

   // Set the program exit code
   ExitCode := 8;
end;

When the program terminates, an error dialog is displayed:

Runtime error 8 at 0069FC94