anchor.diff:    LUnencryptedPayloadBytes, LPwd : TBytes;
     LDone : Boolean;
     i : Integer;
  +  LAccount : TAccount;
   begin
     LUnencryptedPayloadBytes := Nil;
     AEPasa.Clear;
  
positive.code:   SysUtils,
    TypInfo,
    {$IFNDEF FPC}System.Generics.Collections{$ELSE}Generics.Collections{$ENDIF},
    UBlockChain, UNode, UBaseTypes,
    UAccounts,
    UEncoding,
    UEPasa,
  
negative.code:       AEPasa.AccountName := '@';
      end else begin
        if Assigned(ANode) then begin
          LAccount := ANode.GetMempoolAccount(AAccount);
          AEPasa.AccountName := LAccount.name.ToPrintable;
        end;
        if AEPasa.AccountName='' then begin
          ADecodeEPasaResult := der_AccountNameNotFound; // Will continue processing
  