Bei ListBox1.Items (TStrings):
listbox1.Items.Move(listbox1.ItemIndex,listbox1.ItemIndex-1);// wenn es ganz oben ist ist es nachher ganz unten!!!!
und bei
FileList (TStringList) mit :
filelist.Exchange(listbox1.ItemIndex,listbox1.ItemIndex-1);
PS: Das hat mich nur einen kleinen Blick in die Hilfe gekostet
