[poli-smen]

Сообщение от morebeauty

Код:

procedure TForm1.ExceptionEvent(Sender: TObject; E: Exception);
begin
//  ShowMessage(E.Message);
end;

И как мне из этой процедуры завершить ту, которая в процессе выполнения?

Наоборот. "Application.OnException" - это глобальный (корневой) обработчик исключения, поэтому в "TForm1.ExceptionEvent" мы попадём в случае необработанных исключений.
А процедура которая прерывается в том примере это "TForm1.Button1Click".