Listbox item select

[himitsu]

Bitte:

Delphi-Quellcode:

For I := 0 to ListBox1.Items.Count - 1 do
  If ListBox1.Selected[I] Then
    ListBox2.Items.Add(ListBox1.Items.Strings[I]);