Listview Items nach oben verschieben

[capo]

Hallo...
mit dem Beispiel kann ich Listview Items nach unten schieben, wie kann ich nach oben verschieben.

Delphi-Quellcode:

function MoveListViewItem(listView: TListView; ItemFrom, ItemTo: Word): Boolean;
var Source, Target: TListItem;
begin
  Result := False;
  listview.Items.BeginUpdate;
  try
    Source := listview.Items[ItemFrom];
    Target := listview.Items.Insert(ItemTo);
    Target.Assign(Source);
    Source.Free;
    Result := True;
  finally
    listview.Items.EndUpdate;
  end;
end;

procedure TForm1.items_nach_unten;
var i:integer;
begin
  for i:=ListView1.Items.count-2 downto 0 do
  begin
    if ListView1.Items.Item[i].Selected then
    begin
      MoveListViewItem(ListView1,i,i+2);
     ListView1.Items.Item[i+1].Selected:=true;
    end;
  end;
end;