delphi 中TreeView滚动条自动定位到被选中节点有关问题

delphi 中TreeView滚动条自动定位到被选中节点问题
delphi 中TreeView滚动条自动定位到被选中节点问题
有的开发程序，有EnsureVisible这个属性，但是delphi中怎么写代码啊。
------解决方案--------------------

procedure TForm11.btn3Click(Sender: TObject);

var

  i : Integer;

begin

  //随机选中

  Randomize;

  i := Random(tv1.Items.Count);

  tv1.Items.Item[i].Selected := true;

  //定位顶点记录

  tv1.TopItem := tv1.Selected; 

end;