Salut,
J'ai pas tout compris à ta question : la version anglaise diverge de la version francaise

.
Peut etre que cela conviendra à ton probleme

procedure TForm1.TreeView1Click(Sender: TObject);
begin
If Treeview1.Items[0].Selected Then showmessage('OKI');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Treeview1.Selected:=Treeview1.Items[0] ;
TreeView1.OnClick(Sender);
end;