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:
30:
31:

procedure MoveLVItem(LV: TListView;Direction: TSearchDirection);
var aItem, NextItem,TmpItem : TListItem;
begin
  with LV do
  begin
   if IsEditing or not Assigned(ItemFocused) then
      exit;//raus wenn Item editiert wird oder kein Item selektiert ist
    aItem := ItemFocused;
    case Direction of
      sdAbove : if aItem.Index = 0 then
                  exit;//Erstes Item ist markiert > raus
      sdBelow : if aItem.Index = Items.Count-1 then
                  exit;//Letztes Item ist markiert > raus
    end;
    NextItem := GetNextItem(aItem,Direction,[isNone]);
    Items.BeginUpdate;
    try
      TmpItem := TListItem.Create(Items);
      TmpItem.Assign(NextItem);
      NextItem.Assign(aItem);
      aItem.Assign(TmpItem);
      aItem.Selected := NextItem.Selected;
      TmpItem.Free;
      NextItem.MakeVisible(True);
      ItemFocused := NextItem;
      Selected := NextItem;
    finally
      Items.EndUpdate;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ListView1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
   '+' : MoveLVItem(ListView1,sdAbove);
   '-' : MoveLVItem(ListView1,sdBelow);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.NachObenClick(Sender: TObject);
begin
  MoveLVItem(ListView1,sdAbove);
end;

procedure TForm1.NachUntenClick(Sender: TObject);
begin
  MoveLVItem(ListView1,sdBelow);
end;