title: Delphi Tokyo Firemonkey Drag Drop within same listbox
body: <p>I have a listbox with items in it.</p>
  
  <p>I need to re-arrange items within the same listbox with the mouse.</p>
  
  <p>AllowDrag is set to true.</p>
  
  <p>DragMode is dmManual.</p>
  
  <p>Hittest is true.</p>
  
  <p>It works only when you first select the item by clicking and then releasing the left mouse button, and then click the same item and drag/drop.</p>
  
  <p>I searched in google, and saw somebody else has the same issue, and did not find a solution.</p>
  
  <p>How can I establish a drag/drop within the same firemonkey listbox?</p>