markiertes item eines listview per button bewegen

[Hagen]

hallo daniel...
magst du mir sagen was daran falsch ist?
gruß hagen

Delphi-Quellcode:

procedure TForm1.runterClick(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;