anchor.diff:    CT_TMultiOpSender_NUL : TMultiOpSender =  (Account:0;Amount:0;N_Operation:0;Payload:Nil;Signature:(r:Nil;s:Nil));
     CT_TMultiOpReceiver_NUL : TMultiOpReceiver = (Account:0;Amount:0;Payload:Nil);
     CT_TMultiOpChangeInfo_NUL : TMultiOpChangeInfo = (Account:0;N_Operation:0;Changes_type:[];New_Accountkey:(EC_OpenSSL_NID:0;x:Nil;y:Nil);New_Name:Nil;New_Type:0;Seller_Account:-1;Account_Price:-1;Locked_Until_Block:0;Fee:0;Signature:(r:Nil;s:Nil));
  -  CT_TOpChangeAccountInfoType_Txt : Array[Low(TOpChangeAccountInfoType)..High(TOpChangeAccountInfoType)] of AnsiString = ('public_key','account_name','account_type','list_for_public_sale','list_for_private_sale','delist');
  +  CT_TOpChangeAccountInfoType_Txt : Array[Low(TOpChangeAccountInfoType)..High(TOpChangeAccountInfoType)] of String = ('public_key','account_name','account_type','list_for_public_sale','list_for_private_sale','delist');
   
   implementation
   
  
positive.code: end;
  
  procedure TPCBank.UpdateValuesFromSafebox;
  Var aux : AnsiString;
    i : Integer;
  begin
    { Will update current Bank state based on Safebox state
  
negative.code:     Procedure Clear(DeleteOperations : Boolean);
      Function Count: Integer;
      Property OperationBlock: TOperationBlock read FOperationBlock;
      Class Function OperationBlockToText(const OperationBlock: TOperationBlock) : String;
      Class Function SaveOperationBlockToStream(Const OperationBlock: TOperationBlock; Stream: TStream) : Boolean;
      Property AccountKey: TAccountKey read GetAccountKey write SetAccountKey;
      Property nonce: Cardinal read GetnOnce write SetnOnce;
  