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;