双击treeview的某一节点时的事件怎么定义啊

双击treeview的某一节点时的事件如何定义啊？
手工建了一个treview.并增加个几个节点。请问双击treeview的某一节点时的事件如何定义啊？

[解决办法]
什么意思？


procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
showmessage(TreeView1.Selected.Text);
end;
[解决办法]
楼上正解。
[解决办法]
... ...

[解决办法]
-_-...

procedure TForm1.Button1Click(Sender: TObject); //建树举例
var
Node : TTreeNode;
begin
Node := TreeView1.Items.AddFirst(nil, 'TRYAGAIN ');
with TreeView1.Items.AddChild(Node, 'Child1 ') do
Data := Ptr(101);
with TreeView1.Items.AddChild(Node, 'Child2 ') do
Data := Ptr(102);
end;

procedure TForm1.TreeView1DblClick(Sender: TObject); //双击事件
begin
Case integer(TreeView1.Selected.Data) of
101 : begin showmessage( '当前选中的是Child1 '); {Do something} end;
102 : begin showmessage( '当前选中的是Child2 '); {Do something} end;
end;
//if TreeView1.Selected.Text = 'Child1 ' then //这样也可
// showmessage( '当前选中的是Child1 ');
end;