anchor.diff:    class var
       FInstance: TSentryClient;
     private
  +    FSentryInit: Boolean;
       options: psentry_options_t;
       FVectoredExceptionHandler: PVOID;
   
  
positive.code:   if AOptions.HandlerPath <> '' then
      sentry_options_set_handler_pathw(options, PWideChar(AOptions.HandlerPath));
  
    sentry_init(options);
  
    if scfCaptureExceptions in AFlags then
    begin
  
negative.code: destructor TSentryClient.Destroy;
  begin
    FInstance := nil;
    if FSentryInit then
      sentry_shutdown;
    FSentryInit := False;
    if FVectoredExceptionHandler <> nil then
      RemoveVectoredExceptionHandler(FVectoredExceptionHandler);
    inherited Destroy;
  