Mehrer einträge verschieben

[mimi]

Hallo,
ich möchte gerne mehrer einträge einer TJVCChecklistbox verschieben.
mit einem eintrag habe ich es hinbekommen...

das ganze soll in etwa so werden wie im Windows MediaPlayer oder Winamp geht.

hier ist mein qullcode:

Delphi-Quellcode:

var
  index,newIndex:Integer;
  i:Integer;
begin
  if Sender <> Source then begin
//    TJvCheckListBox(Source).MoveSelection(TJvCheckListBox(sender));
    TJvCheckListBox(Source).CopySelection(TJvCheckListBox(sender));
  end
  else begin
//    index:=TJvCheckListBox(Source).ItemIndex;
    newIndex:=TJvCheckListBox(Source).ItemAtPos(Point(x,y),true);
    for i:=0 to TJvCheckListBox(Source).Count-1 do begin
      if TJvCheckListBox(Source).Selected[i] = True then begin 
        TJvCheckListBox(Source).items.exchange(i,newIndex);

        TJvCheckListBox(Source).Selected[NewIndex]:=True;
      end;
    end;
  end;

aufjedenfall geht das so nicht, ich weiß auch noch nicht warum(leider).
es gibt keine fehlermeldung er verschiebt auch nur an die falsche position

(ich arbeitet mit unendliche vielen listboxen dahrer habe ich den oben gezeigten weg gewählt !
ich hoffe ihr könnt das problem nachvollziehen !