1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure MoveItems(var Target: TObject; X, Y: Integer);
var
  NPos: Integer;
begin
  with Target as TListBox do
  begin
    NPos := ItemAtPos(Point(X, Y), False);
    if (NPos >= Items.Count) then
      Dec(NPos);
      Items.Move(ItemIndex, NPos);
    ItemIndex := NPos;
  end;
end;					

1:
2:
3:
4:
5:

procedure TForm_Raum_1.PlayList1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
If source = Sender then begin
MoveItems(Source,x,y);					

1:
2:
3:
4:
5:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TListBox;
end;