// Bei diesem Code werden die Einträge einer TListbox (mit MultiSelect = true)
// durchgegangen, um festzustellen, ob ein Eintag markiert ist oder nicht.
// Als Beispiel werden die markierten Einträge in ein TMemo übertragen.

// Getestet mit D4 unter WinME
 

procedure TForm1.Button1Click(Sender: TObject); 
var x: integer; 
begin 
  memo1.clear; 
  for x := 0 to listbox1.items.count - 1 do begin 
    if sendmessage(listbox1.handle, LB_GETSEL, x, 0) > 0 then 
      memo1.lines.add(listbox1.items[x]); 
  end; 
end;