anchor.diff:  begin
     LUnixValue := FClaims.ByName(TReservedClaimNames.EXPIRATION, 0).AsInt64;
     if LUnixValue > 0 then
  -    Result := UnixToDateTime(LUnixValue, False)
  +    Result := UnixToDateTime(LUnixValue {$ifdef DelphiXE2_UP}, False {$endif})
     else
       Result := 0.0;
   end;
  
positive.code: begin
    LUnixValue := FClaims.ByName(TReservedClaimNames.ISSUED_AT, 0).AsInt64;
    if LUnixValue > 0 then
      Result := UnixToDateTime(LUnixValue, False)
    else
      Result := 0.0;
  end;
  
negative.code:   try
      LIssuedAt := Now;
      FClaims[TReservedClaimNames.ISSUER] := FIssuer;
      FClaims[TReservedClaimNames.ISSUED_AT] := DateTimeToUnix(LIssuedAt {$ifdef DelphiXE2_UP}, False{$endif});
      FClaims[TReservedClaimNames.EXPIRATION] := DateTimeToUnix(LIssuedAt + Duration {$ifdef DelphiXE2_UP}, False{$endif});
      FClaims.SaveToJSON(LJWT.Claims.JSON);
  
      LSigner := TJWS.Create(LJWT);
  