Mehr Infos aus Application.OnException

[Alex_ITA01]

Hallo zusammen,
anbei ein Beispielcode, wie ich Exceptions abfange bzw. mehr Infos darüber erfahre.
Das ist ein Beispiel wo mit absicht natürlich eine Exception ausgelöst wird

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    SL : TStringList;
    procedure OnException (Sender: TObject; E: Exception);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SL.Strings[0] = '' then
    exit;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if SL.Strings[1] = '' then
    exit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := OnException;

  SL := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SL.Free;
end;

procedure TForm1.OnException(Sender: TObject; E: Exception);
var
  TmpStr         : String;
  TmpLongWord    : LongWord;
  TmpPointer     : Pointer;
begin
  if not (csDesigning in ComponentState) then
  begin
    TmpStr := 'OnException: ' + E.Message;
    if Assigned (Sender) then
    begin
      TmpStr := TmpStr + ' - ClassName: ' + Sender.ClassName;
    end;

    TmpPointer  := ExceptAddr;
    Move (TmpPointer, TmpLongWord, SizeOf(TmpLongWord));
    TmpStr   := TmpStr + ' -ExceptADDR: ' + IntToStr (TmpLongWord);

    ShowMessage('OnException:' + TmpStr);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if SL.Strings[2] = '' then
    exit;
end;

end.

Der Timer hat mit Absicht ein Interval von 5000.
Wird eine Exception durch den Timer ausgelöst, steht in Classname "TTimer".
Wird eine Exception durch den Button ausgelöst, steht in ClassName "TForm1".
Jetzt ist die spannende Frage, wenn ich ein Projekt habe mit sehr vielen Units (Formularen) und überall ist ein Timer drauf, welcher mit Absicht eine Exception auslöst, wie bekomme ich raus, welcher Timer das war (also welcher Timer auf welchem Formular)? Da würde dann als Classname ja immer "TTimer" stehen aber ich wüsste nicht welcher es war.

Gruß
Alex