wenn ich dich richtig verstanden haben sollte, dann suchst du sowas:
Delphi-Quellcode:
if not assigned(deinewortliste) then
deinewortliste := TStringList.Create;
if pos(lowercase('bla'), lowercase(deinewortliste.text)) <> 0 then
showmessage('wort enthalten!')
else
deinewortliste.add('bla');
...