[__cadetill]

Por lo tanto, el error no es la comparacion a Nil, sino que faltaria hacer una comprovacion de si hay algun nodo seleccionado y quedaria el codigo algo asi

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

Asi mejor?