anchor.diff:      FAccountsGridFilter : TAccountsGridFilter;
       FBalance : Int64;
       FIsProcessing : Boolean;
  +    FProcessedList : TOrderedCardinalList;
     protected
       procedure SynchronizedOnTerminated;
       procedure BCExecute; override;
  
positive.code:   FBalance := 0;
    LNode := FAccountsGrid.Node;
    try
      Laccl := TOrderedCardinalList.Create;
      Try
        Laccl.Clear;
  
        if (Assigned(FAccountsGridFilter.OrderedAccountsKeyList)) then begin
          if (FAccountsGridFilter.indexAccountsKeyList<0) then i := 0
          else i := FAccountsGridFilter.indexAccountsKeyList;
  
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 }
  