mehrere Markierungen in Listbox

[sniper_w]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 var a:integer;
begin
 randomize();
 for a:=0 to 20 do
       ListBox1.Items.Add(inttostr(random(10000)));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
 var a,n,n1:integer;
     Indexes : array of Integer;
begin
 n := SendMessage(ListBox1.Handle,LB_GETSELCOUNT,0,0);
 SetLength(Indexes,n);
  ListBox2.Clear;
  n1 := SendMessage(ListBox1.Handle,LB_GETSELITEMS,n,Integer(@Indexes[0]));
  if n1<>n then
        Application.MessageBox('n1 = n muss sein!!!','Fehler');
  for a:=0 to n1-1 do
        ListBox2.Items.Add( ListBox1.Items.Strings[Indexes[a]]);
 SetLength(Indexes,0);
end;

Oder du machst das ganze so...