Listbox item select

[axelf98]

Müsste so gehen:

Delphi-Quellcode:

var i : integer;
begin
 for i := 0 to listbox1.items.count - 1 do
 begin
  if listbox1.selected[i] then listbox2.items.add(Listbox1.items[i]);
 end;