procedure TForm1.ShowException(Sender: TObject; E: Exception);
begin
    //Записываем в файл трассировку стека.
    TFile.AppendAllText('stacktrace.txt', E.StackTrace);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
    //Отписываемся от события.
    Application.OnException := nil;
end;