uses clipbrd; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var ts: TStringlist; 
begin 
  ts := TStringlist.create; 
  ts.add('Test'); 
  ts.add('Nochwas'); 
  ts.add('Zeile 3'); 
  ts.add('Schon wieder was'); 
  ts.add('Nu reichts'); 

  clipboard.settextbuf(pchar(ts.text)); 

  ts.free; 
end;