Alternativ kannst du auch einen Handler installieren und dort eine zusätzliche Section mitsamt Inhalt einfügen:
Delphi-Quellcode:
procedure TForm1.madExceptHandler(const exceptIntf: IMEException; var handled: boolean);
begin
exceptIntf.BugReportSections['MyInfo'] := 'This is my info.';
end;
Der Handler muss natürlich auch registriert werden:
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterExceptionHandler(madExceptHandler);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterExceptionHandler(madExceptHandler, stDontSync);
end;