Hello.
When setting large number of nodes (e.g. 200 millions) then the value of NewHeight overflows in method TBaseVirtualTree.SetChildCount (look here). Because it have type TDimension = Integer (defined here). So list is fixed (doesn't move), vertical scroll bar is absent and exception occurs in Debug mode.