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
              DragItem := Items.Add
            else
              DragItem := Items.Insert(DropItem.Index);
            DragItem.Assign(CurrentItem);
            CurrentItem.Free;
            CurrentItem := NextItem;
          end;
      end;