anchor.diff:    FisProcessing := True;
     FProcessedList := TOrderedCardinalList.Create;
     Suspended := False;
  +  ExecuteUIThread := True;
   end;
   
   destructor TAccountsGridUpdateThread.Destroy;
  
positive.code:     procedure DoUpdateBlockChainGrid(ANode : TNode; var AList : TList<TBlockChainData>; ABlockStart, ABlockEnd : Int64);
    protected
      procedure BCExecute; override;
    protected
      FGridUpdateCount: Integer;
      procedure UpdateDrawGrid;
    public
      constructor Create(ABlockChainGrid : TBlockChainGrid);
    End;
  
negative.code:   inherited Create(True);
    FreeOnTerminate := False;
    Suspended := False;
    ExecuteUIThread := True;
  end;
  
  procedure TBlockChainGridUpdateThread.DoUpdateBlockChainGrid(ANode: TNode; var AList: TList<TBlockChainData>; ABlockStart, ABlockEnd : Int64);
  