[__cadetill]

Bueno, a ver si te sirve el codigo siguiente

Para bajar

 
procedure TForm1.BajarClick(Sender: TObject);
var Nodo : TTreeNode;
begin
     with Tree do
      begin
           Nodo := Selected;
           Nodo := Nodo.GetNext;
           if Nodo <> nil then
              Selected := Nodo;
      end;
end;

Para subir

procedure TForm1.SubirClick(Sender: TObject);
var Nodo : TTreeNode;
begin
     with Tree do
      begin
           Nodo := Selected;
           Nodo := Nodo.GetPrev;
           if Nodo <> nil then
              Selected := Nodo;
      end;
end;

Para el AvPag y el RePag, simplemente seria hacer un bucle de la primera o segunda opcion

Espero te sirva