anchor.diff:      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;
  
positive.code:   inherited Create(True);
    FreeOnTerminate := False;
    Suspended := False;
  end;
  
  procedure TBlockChainGridUpdateThread.DoUpdateBlockChainGrid(ANode: TNode; var AList: TList<TBlockChainData>; ABlockStart, ABlockEnd : Int64);
  
negative.code:   inherited Create(True);
    FreeOnTerminate := False;
    Suspended := False;
    ExecuteUIThread := True;
  end;
  
  procedure TOperationsGridUpdateThread.DoUpdateOperationsGrid(ANode: TNode; var AList: TList<TOperationResume>);
  