Listtbox- kopieren ?

[Vader]

hallo,

wie geht das wenn ich von einer listbox zeilen markieren will und die markierten
zeilen dann kopieren in die zwischenablage

den code zum makieren und löschen weiß ich, aber nicht zum kopieren ?

Delphi-Quellcode:

procedure TForm1.MarkiertesLoeschen1Click(Sender: TObject);
var i:integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] then
      ListBox1.Items.Delete(i);

end;

mfg vader