FindComponent für TStringList

[TonyR]

Ich programmiere einen Reimgenerator. Der zeigt zu jedem gesuchten Wort, Reime an.
Um Wörter schnell in die Datenbank zu schreiben und auszulesen habe ich bisher eine TStringList genommen, die beim Programmstart alle Wörter aufnimmt.
Um neue Wörter in die Datenbank aufzunehmen, kann ein beliebiger Text durchsucht werden. Aus diesem werden alle Wörter extrahiert und abgeglichen, ob sie schon in der Datenbank sind.
Da wollte ich (um die Effektivität zu erhöhen) die Wörter nach letzten Buchstaben in eigene TStringLists einzuordnen.

Delphi-Quellcode:

for i:=0 to TStringList(Findcomponent(NewWord[Length(NewWord)-1])).Count-1 do
   if NewWord=TStringList(Findcomponent(NewWord[Length(NewWord)-1])).Strings[i] then
      schonvorhanden:=true;

if schonvorhanden=false then
   TStringList(Findcomponent(NewWord[Length(NewWord)-1])).Add(NewWord);

schonvorhanden;=false;

Ich werde das mit dem Array mal probieren, Danke für den Hinweis!