anchor.diff:  { TAccountsGridUpdateThread }
   
   procedure TAccountsGridUpdateThread.BCExecute;
  -Var Laccl, LacclTemp : TOrderedCardinalList;
  +Var
     l : TOrderedCardinalList;
     i,j : Integer;
     c  : Cardinal;
  
positive.code:               LAccount := LNode.Bank.SafeBox.Account(l.Get(j));
                if LApplyfilter then begin
                  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;
                end else begin
                  Laccl.Add(LAccount.account);
                  FBalance := FBalance + LAccount.balance;
                end;
                if Terminated then Exit;
  
negative.code:   FAccountsGrid := AAccountsGrid;
    FAccountsGridFilter := AAccountsGridFilter;
    FisProcessing := True;
    FProcessedList := TOrderedCardinalList.Create;
    Suspended := False;
  end;
  
  destructor TAccountsGridUpdateThread.Destroy;
  begin
    FreeAndNil(FProcessedList);
    inherited;
  end;
  
  procedure TAccountsGridUpdateThread.SynchronizedOnTerminated;
  var LacclTemp : TOrderedCardinalList;
  begin
    if Not Terminated then begin
      FAccountsGrid.FAccountsBalance := FBalance;
      LacclTemp := FAccountsGrid.LockAccountsList;
      try
        LacclTemp.CopyFrom( FProcessedList );
      finally
        FAccountsGrid.UnlockAccountsList;
      end;
      if Assigned(FAccountsGrid.FOnAccountsGridUpdatedData) then  FAccountsGrid.FOnAccountsGridUpdatedData(FAccountsGrid);
    end;
  end;
  
  { TAccountsGrid }
  