Пример кода : Отображение адреса ошибки в диалоге ошибки завершения
var
i : Integer;
begin // Установка адреса ошибки так,
чтобы прерывание показало диалог завершения ErrorAddr := Addr(i); // Установка кода завершения
программы
ExitCode := 8;
end;
Когда программа прервётся, диалог ошибки отобразит: