anchor.diff:  
     Result := true;
   end;
  -
  -
   
   {$IFNDEF VER210}
   {$DEFINE DELPHIXE}
  
positive.code:     if LPublic then
        LUnencryptedPayloadBytes := APayload
      else if LSenderKeyEncrypted then
        Exit(False) // todo
      else if LRecipientKeyEncrypted then
        Exit(False) // todo
      else if LPasswordEncrypted then
        Exit(False) // todo
      else raise Exception.Create('Internal Error a0805389-df1a-4b40-b12e-d22327a3d049');
  
      // decrypt data
       if LAsciiFormatted then
         LEPasaStr := LEPasaStr + '"' + TEncoding.ASCII.GetString(APayload) + '"'
       else if LHexFormatted then
         LEPasaStr := LEPasaStr + '0x' + THexEncoding.Encode(APayload)
       else if LBase58Formatted then
         LEPasaStr := LEPasaStr + TPascalBase58Encoding.Encode(APayload)
       else raise Exception.Create('Internal Error 67a61d3e-eef2-40a9-8d92-45570f400c1e');
    end;
  
  
negative.code:      if LEPasaStr.IsEmpty then
         Exit(False); *)
       // Note: since doing a name resolution for every encountered addressed-by-name EPASA,
       // 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);
  
  