Wieder mal die ListBox (nur ausgewähltes item löschen)

[Luckie]

Listbox1.Selected[Index] Zeigt dir, ob ein Eintrag markiert ist.

Delphi-Quellcode:

for Loop := Listbox1.Items.Count downto 0 do
begin
 if Listbox1.Selected[Loop] then
   Listbox1.Items.Delete(Loop);
end;

Ungetestet. Aber so ungefähr sollte es gehen.