Listview Item per Button-Klick verschieben

[Luckie]

OK. Hab's:

Delphi-Quellcode:

procedure ExchangeItems(lv: TListView; const i, j: Integer);
var
  tempLI: TListItem;
begin
  lv.Items.BeginUpdate;
  try
    tempLI := TListItem.Create(lv.Items);
    tempLI.Assign(lv.Items.Item[i]);
    lv.Items.Item[i].Assign(lv.Items.Item[j]);
    lv.Items.Item[j].Assign(tempLI);
    tempLI.Free;
    lv.Items[j].Checked := False;
  finally
    lv.Items.EndUpdate
  end;
end;

procedure TForm1.SpinButton1DownClick(Sender: TObject);
var
  CurrIndex: Integer;
  NewItem: TListItem;
begin
  if ListView1.ItemIndex >= 0 then
  begin
    CurrIndex := ListView1.ItemIndex;
    ExchangeItems(Listview1, CurrIndex, CurrIndex+1);
    Listview1.Items.Item[CurrIndex+1].Selected := True;
  end;
end;