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:   then raise EEETSignerException.Create(sSignerInactive);
  end;
  
  procedure TEETSigner.ClearVerifyCert;
  begin
    FCERTrustedList.Clear;
  
negative.code:   inherited Create(AOwner);
    FPFXStream := TMemoryStream.Create;
    FCERTrustedList := TCERTrustedList.Create;
    FMngr := nil;
    FActive := False;
    FVerifyCertIncluded := False;
    ClearPrivKeyInfo;
  end;
  
  destructor TEETSigner.Destroy;
  