jupp, TStringList biete Möglichkeiten zum Suchen
ansonsten die Datei per ReadLn zeilenwise einlesen und dann einfach prüfen ob eine eingelesene Zeile (Zeile=Wort, bei einem Wort pro Zeile) mit dem eingegebenem String übereinstimmt.
Ein Therapeut entspricht 1024 Gigapeut.