anchor.diff:       if LEPasaStr.IsEmpty then
          Exit(False); *)
        // Note: since doing a name resolution for every encountered addressed-by-name EPASA,
  -     // in V5 addressed-by-name EPASA's auto-resolved as addressed-by-number
  +     // would overwhelm the SafeBox with lookups, names are not resolved.
  +     // So in V5 addressed-by-name EPASA's auto-resolved as addressed-by-number
        LEPasaStr := TAccountComp.AccountNumberToAccountTxtNumber(AAccount);
     end else LEPasaStr := TAccountComp.AccountNumberToAccountTxtNumber(AAccount);
   
  
positive.code: 
    Result := true;
  end;
  
  
  
  {$IFNDEF VER210}
  {$DEFINE DELPHIXE}
  
negative.code:     if LPublic then
        LUnencryptedPayloadBytes := APayload
      else if LSenderKeyEncrypted then
        Exit(False) // Todo: Partial decoding does not decrypt due to performance penalty if always decrypting. This needs to be implemented as a IFuture<TBytes> value with lazy evaluation.
      else if LRecipientKeyEncrypted then
        Exit(False) // Todo: Partial decoding does not decrypt due to performance penalty if always decrypting. This needs to be implemented as a IFuture<TBytes> value with lazy evaluation.
      else if LPasswordEncrypted then
        Exit(False) // Todo: Partial decoding does not decrypt due to performance penalty if always decrypting. This needs to be implemented as a IFuture<TBytes> value with lazy evaluation..
      else raise Exception.Create('Internal Error a0805389-df1a-4b40-b12e-d22327a3d049');
  
      // decrypt data
       if LAsciiFormatted then
         LEPasaStr := LEPasaStr + '"' + TEncoding.ASCII.GetString(LUnencryptedPayloadBytes) + '"'
       else if LHexFormatted then
         LEPasaStr := LEPasaStr + '0x' + THexEncoding.Encode(LUnencryptedPayloadBytes)
       else if LBase58Formatted then
         LEPasaStr := LEPasaStr + TPascalBase58Encoding.Encode(LUnencryptedPayloadBytes)
       else raise Exception.Create('Internal Error 67a61d3e-eef2-40a9-8d92-45570f400c1e');
    end;
  
  