title: Drag Drop a ListBoxItem on the same ListBox in Delphi xe firemonkey
body: <p>I need a way to sort <code>listboxItems</code> within the same <code>listbox</code> in a mobile application.</p>
  
  <p>I have put a <code>listbox</code> in the form, and added some <code>listboxitems</code>, I have set <code>DargMode</code> of <code>listboxitems</code> to <code>dmAutomatic</code>, I have written this event handlers:</p>
  
  <pre><code>procedure TForm1.ListBox1DragDrop(Sender: TObject; const Data: TDragObject;
    const Point: TPointF);
  var
    DropedTarget : TListBoxItem;
  begin
    DropedTarget := ListBox1.ItemByPoint(Point.X, Point.Y);
    if (DropedTarget &lt;&gt; nil) then
      (Data.Source as TListBoxItem).Index := DropedTarget.Index;
  end;
  
  procedure TForm1.ListBox1DragOver(Sender: TObject; const Data: TDragObject;
    const Point: TPointF; var Operation: TDragOperation);
  begin
    if Data.Source is TListBoxItem then
      Operation := TDragOperation.Move;
  end;
  </code></pre>
  
  <p>The problem is items in the list box can't be dragged at all.</p>
  
  <p>What I missed?</p>