markiertes item eines listview per button bewegen

[Hagen]

mit einer listbox funktioniert das supergut, bei einer listview wird das move angezweifelt. mag sich dazu jemand äußern?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  CurrIndex: Integer;
begin
  if ListView1.ItemIndex > 0 then
  begin
    CurrIndex := ListView1.ItemIndex;
    ListView1.Items.Move(ListView1.ItemIndex, (CurrIndex - 1));
    ListView1.ItemIndex := CurrIndex - 1;
  end;
end;