How to add custom information into bug report

uses
  EException,   // for TEurekaExceptionInfo
  ELogBuilder,  // for RegisterEventCustomDataRequest and TBaseLogBuilder

  // EModules,  // for CurrentEurekaLogOptions
  ESysInfo;     // for GetFileVersion

procedure AddMoreInfo(const ACustom: Pointer; AExceptionInfo: TEurekaExceptionInfo; ALogBuilder: TBaseLogBuilder; ADataFields: TStrings; var ACallNextHandler: Boolean);
begin
  ADataFields.Values['Application Version'] := GetFileVersion(ParamStr(0));
  ADataFields.Values['Application License'] := {$IFDEF ENTERPRISE}'ENT'{$ELSE}'STD'{$ENDIF};
  ADataFields.Values['Customer'] := 'Test';
end;

initialization
  RegisterEventCustomDataRequest(nil, AddMoreInfo);

  // Don't forget to include custom data in your bug report!

  // Open: Project / EurekaLog options / Bug report / Content
  // Scroll down to bottom and enable "9. Custom data".

  // or do it programmatically:

  // CurrentEurekaLogOptions.soCustomData := True;
end.