Treeview, переход по элементам по нажатию кнопки

[Kelthagor]

Здравствуйте! С каждым нажатием кнопки выделяются, по очереди, элементы treeview, но только выделяются, а мне нужно, чтобы они ещё и нажимались/активировались, что нужно написать для этого?
Вот код по которому выделяются элементы:

procedure TForm1.SledushClick(Sender: TObject);
begin
treeview1.SetFocus;
treeview1.Select(treeview1.Selected.GetNext);
end;

Нужно чтобы они ещё и нажимались, а не только выделялись.

[Stilet]

Т.е. должно срабатывать событиие клика на дереве?
А оно у тебя хотя бы описано?

[Kelthagor]

Сообщение от Stilet

Т.е. должно срабатывать событиие клика на дереве?
А оно у тебя хотя бы описано?

Есть только это

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if treeview1.Items.Item[0].Selected then
webbrowser1.Navigate('file:///C:/Uchebnik/html-file/Zastavka.htm');
Label1.Caption:='Заставка';
if treeview1.Items.Item[1].Selected then
webbrowser1.Navigate('file:///C:/Uchebnik/html-file/Vvedenie.htm');
Label1.Caption:='Введение';

end;

[Kelthagor]

Вот что мне нужно было:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
treeview1.SetFocus;
treeview1.Select(treeview1.Selected.GetNext);
TreeView1Click(Sender)
end;

procedure TForm1.TreeView1Click(Sender: TObject);
var
  i : Integer;
begin
  if TreeView1.Items.Count > 0 then begin
    Memo1.Lines.Add('Ana oceu:');
    for i := 0 to TreeView1.Items.Count - 1 do begin
      Memo1.Lines.Add('Ocae: ' + TreeView1.Items[i].Text);
    end;
  end else begin
    Memo1.Lines.Add('Iao ie iaiiai ocea.');
  end;

  if TreeView1.SelectionCount > 0 then begin
    Memo1.Lines.Add('Auaaeaiiua oceu:');
    for i := 0 to TreeView1.SelectionCount - 1 do begin
      Memo1.Lines.Add('Ocae: ' + TreeView1.Selections[i].Text);
    end;
  end else begin
    Memo1.Lines.Add('Iao auaaeaiiuo oceia.');
  end;
end;

end.