procedure TListViewForm.DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  LV: TListView;
  Dest: TListItem;

  DragItem, DropItem, CurrentItem, NextItem: TListItem;

begin
  if Sender = Source then
    with TListView(Sender) do
    begin
      DropItem    := GetItemAt(X, Y);
      CurrentItem := Selected;
      while CurrentItem <> nil do
      begin
        NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);

        if DropItem = nil then begin
          DragItem := Items.Add;
        end
        else begin
          DragItem := Items.Insert(DropItem.Index);
        end;
{
DragItem.Selected := True;
DragItem.Focused := True;
LV.Perform(LVM_SETSELECTIONMARK, 0, DragItem.Index);
LV.Invalidate;
}
        DragItem.Assign(CurrentItem);
        CurrentItem.Free;
        CurrentItem := NextItem;
      end;
    end;
end;