Как открыть первую ветвь TreeView?

Дата: 01.01.2007
Автор: Vit

Как программным путем открыть первую ветвь и в ней выделить первый элемент?

procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Items[0].Expand(False);
  TreeView1.Items[0].Selected:=true;
  TreeView1.SetFocus;
end;