Combobox und Reihenfolge manuell?

[schniede]

Danke!

mit Move konnte ich nicht so viel anfangen .Wen es interresiert ich habe es jetzt so gelöst.

Code:

procedure Tkatform.hochbtnClick(Sender: TObject);

var
gemerkt:string;
alterindex:integer;

begin
gemerkt:=listbox1.Items[listbox1.itemindex];
alterindex:= listbox1.itemindex;
 if alterindex >0 then begin
 Listbox1.Items.Delete(alterindex);
 dec(alterindex);
 Listbox1.Items.Insert(alterindex,gemerkt);
 listbox1.itemindex:=alterindex;
 end;
end;

procedure Tkatform.runterbtnClick(Sender: TObject);

var
gemerkt:string;
alterindex:integer;

begin
gemerkt:=listbox1.Items[listbox1.itemindex];
alterindex:= listbox1.itemindex;
 if (listbox1.Count-1) > alterindex then begin
 Listbox1.Items.Delete(alterindex);
 inc(alterindex);
 Listbox1.Items.Insert(alterindex,gemerkt);
 listbox1.itemindex:=alterindex;
end;
end;