在listview上同时选中多行，如何在程序中实现用一个循环把所选的每一行的caption显示出来

Question

Var
  S: String;
  i: integer;
begin
  S:='';
  For i:= 0 to ListView1.Items.Count -1 do
     if ListView1.items[i].Selected then
        S:=S+ListView1.items[i].Caption;
  Showmessage(S);
end;

Answer 1

Var
  S: String;
  i: integer;
begin
  S:='';
  For i:= 0 to ListView1.Items.Count -1 do
     if ListView1.items[i].Selected then
        S:=S+ListView1.items[i].Caption;
  Showmessage(S);
end;

Answer 2

Var
  S: String;
  i: integer;
begin
  S:='';
  For i:= 0 to ListView1.Items.Count -1 do
     if ListView1.items[i].Selected then
        S:=S+ListView1.items[i].Caption;
  Showmessage(S);
end;

Answer 3

Var
  i: integer;
begin
  For i:= 0 to ListView1.Items.Count -1 do
     if ListView1.items[i].Selected then
        showmessage(ListView1.items[i].Caption);
end;

Answer 4

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;