Markierung aus Listview in eine Listbox übertragen ?

[s14]

Hallo, mit ItemIndex sollte es gehen.

Delphi-Quellcode:

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  Listbox1.ItemIndex := ListView1.ItemIndex;
end;