Как узнать какой компонент породил Exception?

← →
NeyroSpace (2002-11-05 14:00) [0]

Происходит централизованая обработка исключений:
procedure TMainForm.ProcessException(Sender: TObject; E: Exception);
begin
...
end;

Есть динамически создающийся компонент
Query := TIBQuery.Create(Self);
...
Query.SQL.Text=...
...
Query.Free;
В нем при выполнении запроса происходит исключение. Как из процедуры ProcessException() добраться до Query.SQL.Text?
При исключение Sender имеет класс TPanel...(?!)
Или Query к моменту обработки исключения уже разрушен?

← →
NeyroSpace (2002-11-05 17:27) [1]

Никто не знает?

← →
Smithson (2002-11-05 17:29) [2]

Texception + F1

← →
Digitman (2002-11-05 17:35) [3]

try
.. чего-то там ...
except
on e: exception do
begin
ShowMessage(e.ClassName + #10 + e.message);
raise;
end;
end;

Как узнать какой компонент породил Exception? Найти похожие ветки