anchor.diff:      P^.block:=blockAccount.blockchainInfo.block;
       FList.Insert(Result,P);
       ToTMemBlockAccount(blockAccount,P^.memBlock);
  -    If blockAccount.blockchainInfo.block>FMaxBlockNumber then FMaxBlockNumber:=blockAccount.blockchainInfo.block;
  +    If Integer(blockAccount.blockchainInfo.block)>FMaxBlockNumber then FMaxBlockNumber:=blockAccount.blockchainInfo.block;
     end else if (UpdateIfFound) then begin
       P := FList[Result];
       ToTMemBlockAccount(blockAccount,P^.memBlock);
  
positive.code:       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;
  
negative.code: 
  procedure TOrderedAccountKeysList.RemoveAccountKey(const AccountKey: TAccountKey);
  Var P : POrderedAccountKeyList;
    i : Integer;
    lockedList : TList<Pointer>;
  begin
    lockedList := Lock;
  