1:

ListBox.ItemIndex := IndexDesZuMarkierendenEintrags;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.BtnSRDownClick(Sender: TObject);
var
  puf,pos : integer;
begin
  pos := ListBoxSeSR.ItemIndex;
  if pos = -1 then Exit;               //ist was ausgewählt ?
  if pos = AnzSchiffe - 1 then Exit;   //bereichsprüfung dass nicht unten rausgeschoben wird
  pos := pos + 1;                      //anpassen an SRArray
  puf := AktSr[pos];                   //zwischenspeichern der nach unten zu verschiebenden zeile
  AktSR[pos] := AktSR[pos + 1];        //untere zeile nach oben schieben
  AktSR[pos + 1] := puf;               //obere zeile (im puffer) unten rein
  SetSchussreihenfolgeToEditor(AktSR); //werte im stringgrid aktualisieren
  ListBoxSeSR.ItemIndex := pos;        //index wieder auf den verschobenen eintrag
end;

procedure TForm1.BtnSRUpClick(Sender: TObject);
var
  puf,pos : integer;
begin
  pos := ListBoxSeSR.ItemIndex;
  if pos = -1 then Exit;               //ist was ausgewählt ?
  if pos < 1 then Exit;                //bereichsprüfung dass man nicht nach oben rausschiebt
  pos := pos + 1;                      //anpassen an SRArray
  puf := AktSr[pos];                   //zwischenspeichern der nach oben zu verschiebenden zeile
  AktSR[pos] := AktSR[pos - 1];        //obere zeile nach unten schieben
  AktSR[pos - 1] := puf;               //untere zeile (im puffer) oben rein
  SetSchussreihenfolgeToEditor(AktSR); //werte im stringgrid aktualisieren
  ListboxSeSr.ItemIndex := pos - 2;    //index wieder auf den verschobenen eintrag
end;					

1:
2:

ListBox.ItemIndex := Pred(ListBox.ItemIndex);  //Markierung rauf
ListBox.ItemIndex := Succ(ListBox.ItemIndex);  //Markierung runter					

1:
2:
3:

  with ListBox do
    if ItemIndex > 0 then
      Items.Move(Pred(ItemIndex),ItemIndex);