Wie verschiebe ich Einträge in einer Listbox

Wie verschiebe ich Einträge in einer Listbox?
z.B. Eintrag an Pos. 7 auf Pos. 3 in derselben Listbox per Drag&Drop.

Wie mache ich das mit mehreren Einträgen?

Ich arbeite mit Delph 5.
Danke schon mal

Das hier?
Guten Tag,

http://delphi.about.com/od/adptips2006/qt/listboxdro…

JJ