[Delphi] ListBox 내용을 클립보드에 복사하기

uses절에 Clipbrd; 추가하고 

ClipBoard.SetTextBuf( PChar(복사 할 내용) );

ex)

ClipBoard.SetTextBuf( PChar( Listbox.Items.Strings[Listbox.ItemIndex] ) ); 

ClipBoard.SetTextBuf( PChar( Listbox.Items.Text ) );