Delphi-Quellcode:
for i := Listbox1.items.count-1 downto 0 do
begin
if Listbox2.items.indexof(Listbox1.items[i]) = -1 then
Listbox2.Items.Delete(i);
end;
Genau hier ist ja das downto nicht zwingend notwendig, weil du die Elemente ja nicht in ListBox1 löscht.
Okay, aber am ende kommt ja alles auf das gleiche raus.