anchor.diff:        inc(FTotalChanges);
         lockedList.Insert(i,P);
         // Search this key in the AccountsList and add all...
  -      j := 0;
         if Assigned(FAccountList) then begin
           If (Assigned(FAccountList.OrderedAccountKeysList)) And (FAccountList.OrderedAccountKeysList<>Self) then begin
             safeboxLockedList := FAccountList.OrderedAccountKeysList.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:     P^.block:=blockAccount.blockchainInfo.block;
      FList.Insert(Result,P);
      ToTMemBlockAccount(blockAccount,P^.memBlock);
      If Integer(blockAccount.blockchainInfo.block)>FMaxBlockNumber then FMaxBlockNumber:=blockAccount.blockchainInfo.block;
    end else if (UpdateIfFound) then begin
      P := FList[Result];
      ToTMemBlockAccount(blockAccount,P^.memBlock);
  