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

[NetAnton]

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

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