Erweiterte Suche im Text???

[romber]

Hallo!

Ich möchte überprüfen, ob eine dynamisch vom Benutzer eingegebene Zeichenfolge in einem String vorhanden ist. Das geht doch ganz einfach mit pos:

Code:

...
if pos(LowerCase(Edit1.Text), LowerCase(Memo1.Text)) > 0 then
ShowMessage('String gefunden!')

Ok, funktioniert gut. Ich möchte es jetzt so machen, dass auch änliche Zeichenfolgen gefunden werden. Zum Beispiel man möchte prüffen, ob die Zeichenfolge 2 Zimmer Wohnung in einem Text vorhanden ist. Im Text ist diese vorhanden, aber mit Bindestrich 2-Zimmer Wohnung oder gar zusammengeschrieben 2 Zimmerwohnung. Diese müssen auch erkannt werden. Hat jemand schon so etwas gemacht? Wie mache ich das?

Danke!