Обработка исключений, Несрочно требуется помощь Опции

[NetAnton]

В приложении есть процедура HandleException(Sender: TObject; E: Exception);
В ней выводится MessageBox с информацией: класс ошибки - E.ClassName, само сообщение ошибки - E.Message, класс объекта-генератора ошибки - Sender.ClassName.
В начале загрузки форм имеется присвоение
Application.OnException:=HandleException.
Как я тестировал - в код нажатия какой-то кнопки вписывал raise EMathError.Create('сообщ.') и получал красивый обработчик исключений. Но если, допустим, идет вызов процедуры через ту же кнопку, то при возникновении ошибки в процедуре выдается информация о кнопке, а не процедуре. Проблема в этом.
Хотелось бы еще как-то узнать через Sender не только класс виновника, но и его конкретное имя.

За ответы всем спасибо. Пошел мучать дальше эти эксепшны...

[KRUTOY]

NetAnton

Но если, допустим, идет вызов процедуры через ту же кнопку, то при возникновении ошибки в процедуре выдается информация о кнопке, а не процедуре.

В каком виде она выдаётся и куда :o , поясни?? В принципе, наверно, параметром передачи является класс TComponent, поэтому и не появляется информации о процедуре...

Подскажите, как заблокировать работу приложения, когда светится модальное окно с сообщением

Работа прекращается и так