Загрузить из ListView

[Михаил Юрьевич]

В ListView несколько колонок, и установлен checkboxes в ListView.
Интересует первая колонка, как все отмеченные записи чикетом из первой колонки загрузить в StringList ?

[ResourceSpace]

Procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer; S: String;
Begin
S:='';
For i:=0 To ListView1.Items.Count-1 Do
      If ListView1.Items.Item[i].Checked Then
            S:=S+ListView1.Items.Item[i].Caption+' | '+StringReplace(ListView1.Items.Item[i].SubItems.Text, #13#10, ' | ', [rfReplaceAll])+#13#10;
ShowMessage(S);
End;

?

Procedure TForm1.Button2Click(Sender: TObject);
Var i: Integer; S: String;
Begin
S:='';
For i:=0 To ListView1.Items.Count-1 Do
      If ListView1.Items.Item[i].Checked Then
            S:=S+ListView1.Items.Item[i].Caption+#13#10;
ShowMessage(S);
End;

??

[Михаил Юрьевич]

Большое спасибо!!!!