Listboxeintrag merken und wiederherstellen

[bluescreen25]

was hälste hiervon ?Habe auch mal meinen Kopf überanstrengt:

Delphi-Quellcode:

procedure Tmediaplayer_frm.PlayList_ListBoxDragDrop(Sender,
  Source: TObject; X, Y: Integer);
var
    i,j,k : Integer;
                   //Playlisteneinträge verschieben
 begin
   i := PlayList_ListBox.ItemIndex;
   j := PlayList_ListBox.ItemAtPos(point(x,y),true);
   k := currentsong;

   if j >-1 then  //nur drag & drop ,wenn auch item vorhanden
   begin

     if i = k then    // hatte ich noch vergessen !
     currentsong := j;
     
     if (i > k) and (j <= k) then
     currentsong := k +1;

     if (i < k) and (j >= k) then
     currentsong := k -1;

     PlayList_ListBox.Items.Move(i,j);
     PlayList.Move(i,j);
     PlayList_ListBox.Refresh;
     PlayList_ListBox.Selected[j]:=false;
   end;
 end;