String durchsuchen???

[romber]

Hallo!

Ich möchte einen Memo-Feld auf mehrere Strings durchsuchen und zwar so, daß man in eine TEdit-Feld kommagetrennt mehrere Wörter eingibt und dann auf "Suchen" klickt. Wenn wenigstens ein Wort davon im Memo vorkommt, wird eine bestimmte Erreignis ausgrführt. Hört sich relativ einfach an, mann trennt die Strings, dann kann mann ja immer if..or..then verwenden wenn man genau weiß, auf wieviele Wörter durchgesucht werden soll

Delphi-Quellcode:

...
if (pos('Wort1', Memo1.Text) > 0) or (pos('Wort2', Memo.Text) > 0) or (pos('Wort3', Memo.Text) > 0) or ... then
//Irgendwas machen

Aber wie definiere ich das, wenn ich nicht weiß, auf wieviele String durchgesucht werden soll? Wie würdet ihr das machen?