[roman]

Prueba este método:

Código Delphi [-]
var
  Nodo: TTreeNode;
  I: Integer;

begin
  for I := 0 to TreeView1.Items.Count - 1 do
  begin
    Nodo := TreeView1.Items[i];

    if Nodo.Text = 'Mi nodo' then
    begin
      Nodo.Selected := true;
      Nodo.MakeVisible;

      break;
    end;
  end;
end;

// Saludos