procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
X,
Y: Integer);
var
node: TTreeNode;
begin
if Boolean(TreeView1.GetNodeAt(X,Y)) then
begin
node := TreeView1.GetNodeAt(X,Y);
Text := node.Text;
end;
end;