Wäre es nicht einfacher, die Suche in eine eigene Methode auszulagern? Dazu könnte man entweder die Liste erweitern, oder man macht es zur Not von außen.
Delphi-Quellcode:
function TWasWeißIch.IndexOfToken(const Token: string): integer;
var
idx: integer;
begin
Result := -1;
for idx := 0 to List.Count - 1 do
if Token = List[idx].sWort2 then
begin
Result := idx;
break;
end;
end;
Gibt diese Funktion -1 zurück, ist das Wort nicht enthalten.