Delphi中TreeView的单击事件有关问题请问

Delphi中TreeView的单击事件问题请教
TreeView的单击事件点击控件任何地方都可以触发，我只想在点击节点的名称文本上才触发这个单击事件，哪位可以给点代码参考下吗？ 万分感谢！！！ delphi treeview?菜单? treeview 菜单 单击事件
[解决办法]
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  aHitTests:THitTests;
begin
  aHitTests:=  TreeView1.GetHitTestInfoAt(X,Y) ;
  if  htOnLabel in aHitTests then
Begin
  Application.MessageBox('ok', '' ,64);
End;

end;