anchor.diff:  { TAccountsGridUpdateThread }
   
   procedure TAccountsGridUpdateThread.BCExecute;
  -Var Laccl, LacclTemp : TOrderedCardinalList;
  +Var
     l : TOrderedCardinalList;
     i,j : Integer;
     c  : Cardinal;
  
positive.code:         while (c<LNode.Bank.SafeBox.AccountsCount) and (Not Terminated) do begin
            LAccount := LNode.Bank.SafeBox.Account(c);
            if (LAccount.balance>=FAccountsGridFilter.MinBalance) And ((FAccountsGridFilter.MaxBalance<0) Or (LAccount.balance<=FAccountsGridFilter.MaxBalance)) then begin
              Laccl.Add(LAccount.account);
              FBalance := FBalance + LAccount.balance;
            end;
            inc(c);
          end;
        end;
      Finally
        try
          if Not Terminated then begin
            LacclTemp := FAccountsGrid.LockAccountsList;
            try
              LacclTemp.CopyFrom(Laccl);
            finally
              FAccountsGrid.UnlockAccountsList;
            end;
          end;
        finally
          Laccl.Free;
        end;
      End;
    Finally
      FisProcessing := False;
      if Not Terminated then
  
negative.code:     FAccountsGridFilter : TAccountsGridFilter;
      FBalance : Int64;
      FIsProcessing : Boolean;
      FProcessedList : TOrderedCardinalList;
    protected
      procedure SynchronizedOnTerminated;
      procedure BCExecute; override;
  