ScrollBy en un treeview

[aram2r]

Hola amigos gracias por leer este post, estoy intentando realizar sceollby en un treeview pero parece ser que no funciona se quedan todos los datos como mezclados o sin actualizar como si no refrescara la imagen, y la barra de scroll en realidad no se mueve, cuando actualizo manualmente esta donde mismo estaba al principio.......el unico codigo que utilizo para esto es el siguiente (lo he puesto dentro de un boton para probarlo):

Código Delphi [-]
procedure TFormPrincipal.Button1Click(Sender: TObject);
begin
  TreeView.ScrollBy(0,-2);
end;

La finalidad de mi busqueda es conseguir que cuando arrastro dentro del TreeView si bajo y quedan mas nodos que haga automaticamente scroll (no se si hay otra solucion posible?????????????????????)
seria algo asi:

Código Delphi [-]
procedure TFormPrincipal.EquiposDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin

  //mas codigo que no influye

  if y > (TreeView.Top+TreeView.Height) then
  begin
    TreeView.ScrollBy(0,-2);
  end;
end;