TreeView GetNodeAt() ??

[Родион]

как сделать TreeView GetNodeAt(под курсором) ????

[Stilet]

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if TreeView1.GetNodeAt(x,y)<>nil then
 caption:=TreeView1.GetNodeAt(x,y).Text;
end;