// Способ первый
// TreeViewItem8 - это нод.
// Скрол по вертикали, нод оказывается в самом верху TreeView.   
procedure TForm1.Button1Click(Sender: TObject);
begin
   TreeView1.ScrollTo(0, -TreeViewItem8.Position.Y);
   TreeView1.Selected := TreeViewItem8;
end;

// Способ второй
// TreeViewItem10 - это нод.
procedure TForm1.Button1Click(Sender: TObject);
begin
   TreeView1.ViewportPosition := TPointF.Create(0, TreeViewItem10.Position.Y);
end;