Gracias por la idea roman,
termine escribiendo
Código Delphi
[-]
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TreeView1.Select(TreeView1.GetNodeAt(X, Y));
end;
y funcionó perfecto