delphi 能不能把TStringList里的内容,保存到剪切板里,可以粘贴到别的地方?

delphi 能不能把TStringList里的内容,保存到剪切板里,可以粘贴到别的地方?

  sl := TStringList.Create;
  sl.Clear;
    sl.add('1');
    sl.add('2');
    sl.add('3');    

1
2
3

能不能一这样的格式粘贴到别的地方。

或者有其他的好办法啊!

你的意思是全部?

str := s1.CommaText;
Clipboard.SetTextBuf(PChar(str));