anchor.diff:  
   procedure TOrderedAccountKeysList.AddAccounts(const AccountKey: TAccountKey; const accounts: array of Cardinal);
   Var P : POrderedAccountKeyList;
  -  i,i2 : Integer;
  +  i : Integer;
     lockedList : TList<Pointer>;
   begin
     lockedList := Lock;
  
positive.code: 
  function TOrderedBlockAccountList.AddIfNotExists(const blockAccount: TBlockAccount): Integer;
  begin
    SaveBlockAccount(blockAccount,False);
  end;
  
  function TOrderedBlockAccountList.Add(const blockAccount: TBlockAccount): Integer;
  begin
    SaveBlockAccount(blockAccount,True);
  end;
  
  function TOrderedBlockAccountList.Count: Integer;
  
negative.code: 
  procedure TOrderedAccountKeysList.RemoveAccountKey(const AccountKey: TAccountKey);
  Var P : POrderedAccountKeyList;
    i : Integer;
    lockedList : TList<Pointer>;
  begin
    lockedList := Lock;
  