Listboxeinträge werden zerstückelt

[Torpedo]

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