herrausfinden ob wort aus listbox in memo existiert

[ch33seburger]

hi..

Delphi-Quellcode:

For v:=0 to Listbox8.Items.count-1 do begin
if Pos(Listbox8.Items[v],Memo2.text) > 0 then begin
bla
end;
end;

dieser code will einfach nicht funktionieren.. es wird immer nur das erste wort in der listbox erkannt
aber warum nur das erste??
ich will doch das er alle wörter aus der listbox, die im memo existieren meldet ..

ich würde mich sehr über hilfe freuen.. danke schonmal