anchor.diff:  
   destructor TAccountsGrid.Destroy;
   begin
  -  TerminateAccountGridUpdateThread;
  +  TerminateAccountGridUpdateThread(True);
     FNodeNotifyEvents.Free;
     FAccountsList.Free;
     inherited;
  
positive.code:     procedure SetNode(const Value: TNode);
      function GetNode: TNode;
      procedure SetAllowMultiSelect(const Value: Boolean);
      procedure TerminateAccountGridUpdateThread;
      procedure SetAccountsGridFilter(const Value: TAccountsGridFilter);
      function GetAccountsCount: Integer;
      procedure SetAccountsGridDatasource(const Value: TAccountsGridDatasource);
  
negative.code:       end;
    Finally
      FisProcessing := False;
      if Not Terminated then begin
        Synchronize(SynchronizedOnTerminated);
      end;
    End;
  end;
  
  