Stringlist Einträge mit Listbox konform

[Blackheart]

Hallo Leute !
Ich verschiebe per Drag & Drop Items in einer Listbox,
nun würde Ich gern die Einträge in einer Stringlist gleichzeitig verschieben aber das klappt nicht so ganz wie Ich Mir das dachte.
Hätte vieleicht jemand eine Idee.
In der Stringlist befinden sich andere Einträge, aber immer die gleiche Anzahl wie in der Listbox.

SL.Strings[i]:=SL.Strings[ListBox1.ItemIndex];