{
GetNextItem example
This example demonstrates how to retrieve all selected items in a ListView component and add the Caption of the selected ListItems to a ListBox component.
Add a button a listview and a listbox to the form.
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  Item: TListItem;
begin
  Item := ListView1.Selected;
  while Item <> nil do
  begin
    ListBox1.Items.Add(Item.Caption);
    Item := ListView1.GetNextItem(Item, sdAll, [isSelected]);
  end;
end; 
