Also bei mir funktioniert der Code
Edit: Doch nicht, sorry.
Edit2:
Das müsste funktionieren:
Delphi-Quellcode:
for x:=0 to ListboxGesuchteWorte.Count-1 do
if Pos(ListboxGesuchteWorte.Items.Strings[x],langeString) > 0 then
ListboxIstVorhanden.Items.Add(ListboxGesuchteWorte.Items.Strings[x]);
Das ist übrigens der ganze Code