Como Pegar o Item Indexado ou selecionado no Treeview

TTreeView.Selected

procedure TfMain.tvArvoreDblClick(Sender: TObject);
var
  index: integer;
begin
  // Abriu e editou o nodo
  {
    ...
    ...
    ...
  }
  // Guarda o AbsoluteIndex
  index := tvArvore.Selected.AbsoluteIndex;
  // Remonta o TreeView
  {
    ...
    ...
    ...
  }
  // Seleciona o nodo novamente
  seleciona(Index);  {esta rotina irá selecionar novamente o nodo desejado. O código esta abaixo.}
end;


procedure TfMain.seleciona(Index: integer);
var
  Nodo : TTreeNode;
begin
  // Pega o primeiro nodo
  Nodo := tvArvore.Items.GetFirstNode;

  // Enquanto tiver nodos pra frente faça
  while Nodo.GetNext <> nil do
  begin
    // Se o AbsoluteIndex bateu seleciona
    if Nodo.AbsoluteIndex = Index then
    begin
      tvArvore.Selected := Nodo;
      break;
    end
    else  // senão vai pro próximo
      Nodo := Nodo.GetNext;
  end;
end;