das funktuioniert, allerdings werden die items nicht verschoben.
Delphi-Quellcode:
procedure TForm1.raufClick(Sender: TObject);
var
i:integer;
begin
For i:=0 to ListView1.Items.Count-1 Do
If ListView1.Items[i].Selected then
begin
ListView1.ItemIndex := i -1 ;
end;
end;