procedure TForm1.TreeView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Node: TTreeNode;
begin
if (Button = mbLeft) and (ssDouble in Shift) then
begin
Node := TreeView1.GetNodeAt(X, Y);
ShowMessage(Node.Text);
end;
end;