title: How to copy multiple selected rows of listview into clipboard in Delphi
body: <p>I have put together this code Selected rows into clipboard from a lisview. </p>
  
  <pre><code>procedure TFmainViewTCP.Copy1Click(Sender: TObject);
   var
    Str:String;
    k  :Integer;
    lItem:TListItem;
   begin
     repeat
       lItem:=lvConnection.Selected;
       Str:=lItem.Caption;
       for k:=0 to lvConnection.Columns.Count-2 do
        begin
         Str:=Str+'  '+lItem.SubItems[k];
        end;
       Clipboard.AsText:=Clipboard.AsText+ sLineBreak +Str; {copy into clipboard}
     until lItem.Selected=True;
   end;
  </code></pre>
  
  <p>I am not sure if this is working correctly, it does not copy out all the rows for me. Can somebody help me out in this?</p>
  
  <p>Thanks in Advance</p>