如何在delphi中将整个Listview的字符串复制到我的剪贴板中？

var
  i: Integer;
  ListViewText: string;
begin
  ListViewText := '';
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    ListViewText := ListViewText + ListView1.Items[i].Caption;
    if ListView1.Items[i].SubItems.Count > 0 then
      ListViewText := ListViewText + #9 + ListView1.Items[i].SubItems[0];
    ListViewText := ListViewText + #13#10;
  end;

  Clipboard.AsText := ListViewText;
end;