[poli-smen]

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

Код:

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

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

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

[NumLock]

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

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

Вы извините меня, я не очень шарю. Мануалы не всегда помогают. В этом, например, случае. Поэтому и спрашиваю.

ее выполнение всегда будет прервано (raise). тут мы лишь гасим сообщение об ошибке. можно еще создать своего наследника Exception и возбуждать его в процедуре, проверяя в ExceptionEvent тип и в случае не нашего исключения ошибку все-таки выводить.