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:
32:
33:
34:
35:
36:
37:
38:

//Written by Lannes  ( http://www.delphi-library.de/topic_+ListViewItem+nach+oben+oder+unten+verschieben_50284.html )
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;

//Aufruf:
procedure Tform_clmanager.btn_att_upClick(Sender: TObject);
begin
  MoveLVItem(listview_att,sdAbove);
end;					

1:
2:

   if IsEditing or not Assigned(ItemFocused) then  
      exit;//raus wenn Item editiert wird oder kein Item selektiert ist					

1:
2:

listview_att.Setfocus;
MoveLVItem(listview_att,sdAbove);