Also damit wird es nicht gehn, da dieses ja prüft, ob der gesamte Text des Memos in einem der ListBox-Items drin ist, was wohl nie der Fall sein wird.
So könnte es aber hinhaun:
Delphi-Quellcode:
For v := 0 to Listbox8.Items.Count - 1 do Begin
i := 1;
While PosEx(Listbox8.Items[v], Memo2.Text, i) > 0 do Begin
bla
...
i := PosEx(Listbox8.Items[v], Memo2.Text, i) + 1;
End;
End;
(Angaben ohne Gewehr)