anchor.diff:        {$BOOLEVAL OFF}
         if FPFXStream.Size > 0
         then begin
  -        FPrivKeyInfo.Name := '';
  -        FPrivKeyInfo.SerialNumber := '';
  -        FPrivKeyInfo.notValidBefore := 0;
  -        FPrivKeyInfo.notValidAfter := 0;
  +        ClearPrivKeyInfo;
   
           {$IFNDEF USE_LIBEET}
           FMngr := xmlSecKeysMngrCreate();
  
positive.code:     procedure SetActive(const Value: Boolean);
      procedure CheckActive;
      procedure CheckInactive;
      procedure ReadPrivKeyInfo;
      function ExtractSubjectItem(aSubject, ItemName : string): string;
    public
  
negative.code:   then raise EEETSignerException.Create(sSignerInactive);
  end;
  
  procedure TEETSigner.ClearPrivKeyInfo;
  begin
    FPrivKeyInfo.Name := '';
    FPrivKeyInfo.Subject := '';
    FPrivKeyInfo.notValidBefore := 0;
    FPrivKeyInfo.notValidAfter := 0;
  end;
  
  procedure TEETSigner.ClearVerifyCert;
  begin
    FCERTrustedList.Clear;
  