Woerter in Memo suchen, wie viel gefunden, welche Zeile

[Klaus01]

In etwa sollte es so aussehen:

Delphi-Quellcode:

for i:=0 to Memo1.lines.count -1 do
  if pos(Memo1.lines[i],suchwort) > 0 then
     // suchwort in Zeile i gefunden

Wobei pos auch etwas findet wenn das Suchwort nur ein
Teil eines ganzen Wortes ist.

Grüße
Klaus