anchor.diff:      function SellerAccount : Int64; override;
       function N_Operation : Cardinal; override;
       procedure AffectedAccounts(list : TList); override;
  +    function OperationAmountByAccount(account : Cardinal) : Int64; override;
       Property Data : TOpListAccountData read FData;
       Function toString : String; Override;
     End;
  
positive.code:   Result := FData.n_operation;
  end;
  
  function TOpTransaction.toString: String;
  begin
    case FData.opTransactionStyle of
  
negative.code: begin
    list.Add(TObject(FData.account_signer));
    if (FData.account_target<>FData.account_signer) then list.Add(TObject(FData.account_target));
  end;
  
  function TOpChangeKey.OperationAmountByAccount(account: Cardinal): Int64;
  begin
    if (FData.account_signer = account) then Result := Int64(FData.fee)*(-1)
    else Result := 0;
  end;
  
  constructor TOpChangeKey.Create(account_signer, n_operation, account_target: Cardinal; key:TECPrivateKey; new_account_key : TAccountKey; fee: UInt64; payload: TRawBytes);
  